|
%I #4 Dec 15 2021 00:17:24
%S 619,16091,19861,61819,116911,119611,160091,169691,191161,196961,
%T 686989,688889,1068901,1160911,1190611,1191611,1681891,1690691,
%U 1898681,1908061,1960961,1990661,6081809,6100019,6108019,6110119,6608099,6610199
%N Strobogrammatic non-palindromic primes.
%C Primes which are invariant under a 180-degree rotation, but do not have a mirror symmetry.
%t 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[ # ] &]
%Y Cf. The elements of this sequence are the elements of A007597 (Strobogrammatic primes) excluding the elements of A068188 (Tetradic primes).
%K base,nonn
%O 1,1
%A _Tanya Khovanova_, Oct 10 2007
|
