%I A018847
%S A018847 2,5,11,101,151,181,619,659,6229,10501,12821,15551,16091,18181,19861,
%T A018847 60209,60509,61519,61819,62129,116911,119611,160091,169691,191161,196961,
%U A018847 605509,620029,625529,626929,650059,655559,656959,682289,686989,688889
%N A018847 Strobogrammatic primes: the same upside down (calculator-style numerals).
%t A018847 lst = {}; fQ[n_] := Block[{allset = {0, 1, 2, 5, 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, 700000}] 
               (* Robert G. Wilson v (rgwv(at)rgwv.com), Feb 27 2007 *)
%Y A018847 Cf. A007597.
%Y A018847 Sequence in context: A087185 A127010 A131480 this_sequence A134996 A134998 
               A078790
%Y A018847 Adjacent sequences: A018844 A018845 A018846 this_sequence A018848 A018849 
               A018850
%K A018847 nonn,base
%O A018847 1,1
%A A018847 David W. Wilson (davidwwilson(AT)comcast.net)