A133207 - OEIS

%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