%I #14 Dec 15 2021 00:14:44
%S 1021,1151,1181,1201,1511,1811,10151,11551,15101,15511,100511,101281,
%T 102181,102551,105211,105251,108881,110051,110221,110281,110881,
%U 111211,111821,112111,112181,112501,115001,115021,118081,120121,120511,121021,121151,122011
%N Emirps that become their own reversals when rotated through 180 degrees (including on calculator display).
%C Such emirps have end digits 1 and use only digits 0, 1, 2, 5, 8, and the sequence naturally includes A155512, the emirps with only digits 0 and 1.
%e 1181 of this sequence, for instance, belongs to the emirp pair (1181, 1811), where each member is a 180-degree rotation of the other; similarly for the term 112501 of this sequence, that belongs to the emirp pair (105211, 112501) and which, displayed on a calculator and turned upside-down, becomes its own reversal.
%t t1 = {0, 1, 2, 5, 8}; okQ[n_] := Module[{d = IntegerDigits[n], r}, r = Reverse[d]; r != d && Complement[d, t1] == {} && PrimeQ[FromDigits[r]]]; Select[Prime[Range[100000]], okQ] (* _T. D. Noe_, Apr 24 2012 *)
%Y Cf. A006567.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Mar 21 2012
|