Skip to main content
2 of 6
clarify
ThaddeusB
  • 401
  • 2
  • 8

#Perl, 23 bytes

say<>=~/^(?!(..+)\1+$)/

Using the regular expression+unary input approach, prints 11 (or whatever your digit entered) or a blank line

ThaddeusB
  • 401
  • 2
  • 8