#Perl, 23 bytes
say<>=~/^(?!(..+)\1+$)/
Using the regular expression+unary input approach, prints 11
(or whatever your digit entered) or a blank line
#Perl, 23 bytes
say<>=~/^(?!(..+)\1+$)/
Using the regular expression+unary input approach, prints 11
(or whatever your digit entered) or a blank line