%I A007597 M4800
%S A007597 11,101,181,619,16091,18181,19861,61819,116911,119611,160091,169691,
%T A007597 191161,196961,686989,688889,1008001,1068901,1160911,1180811,1190611,
%U A007597 1191611,1681891,1690691,1880881,1881881,1898681,1908061,1960961,1990661
%N A007597 Strobogrammatic primes.
%C A007597 Primes which are invariant under a 180 degree rotation.
%D A007597 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 
               Academic Press, 1995 (includes this sequence).
%D A007597 "Strobogrammatic Primes and Prime Rotative Twins" by Charles W. Trigg, 
               J. Rec. Math., 15 (1983), 281-282.
%H A007597 C. K. Caldwell, The Prime Glossary, <a href="http://primes.utm.edu/glossary/
               page.php/strobogrammatic.html">Strobogrammatic</a>
%H A007597 Wikipedia, <a href="http://en.wikipedia.org/wiki/Strobogrammatic_prime">
               Strobogrammatic prime</a>
%t A007597 lst = {}; fQ[n_] := Block[{allset = {0, 1, 6, 8, 9}, id = IntegerDigits@n}, 
               Union@ Join[id, allset] == allset && Reverse[id /. {6 -> 9, 9 -> 
               6}] == id]; Do[ If[ PrimeQ@n && fQ@n, AppendTo[lst, n]], {n, 2000000}]; 
               lst (* Robert G. Wilson v (rgwv(at)rgwv.com), Feb 27 2007 *)
%Y A007597 Cf. A000787.
%Y A007597 Sequence in context: A089716 A084987 A083185 this_sequence A061247 A068188 
               A032592
%Y A007597 Adjacent sequences: A007594 A007595 A007596 this_sequence A007598 A007599 
               A007600
%K A007597 base,nonn
%O A007597 1,1
%A A007597 N. J. A. Sloane (njas(AT)research.att.com), Robert G. Wilson v (rgwv(AT)rgwv.com)
%E A007597 More terms from David W. Wilson (davidwwilson(AT)comcast.net)