A133207 Strobogrammatic non-palindromic primes.
619, 16091, 19861, 61819, 116911, 119611, 160091, 169691, 191161, 196961, 686989, 688889, 1068901, 1160911, 1190611, 1191611, 1681891, 1690691, 1898681, 1908061, 1960961, 1990661, 6081809, 6100019, 6108019, 6110119, 6608099, 6610199
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[10000000], PrimeQ[ # ] && Union[IntegerDigits[ # ], {0, 1, 6, 8, 9}] == {0, 1, 6, 8, 9} && Reverse[IntegerDigits[ # ] /. {6 -> 9, 9 -> 6} ] == IntegerDigits[ # ] && Reverse[IntegerDigits[ # ]] != IntegerDigits[ # ] &]
Comments