OFFSET
1,1
COMMENTS
Primes which are invariant under a 180-degree rotation, but do not have a mirror symmetry.
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[ # ] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Oct 10 2007
STATUS
approved