cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A209620 Emirps that become their own reversals when rotated through 180 degrees (including on calculator display).

This page as a plain text file.
%I A209620 #14 Dec 15 2021 00:14:44
%S A209620 1021,1151,1181,1201,1511,1811,10151,11551,15101,15511,100511,101281,
%T A209620 102181,102551,105211,105251,108881,110051,110221,110281,110881,
%U A209620 111211,111821,112111,112181,112501,115001,115021,118081,120121,120511,121021,121151,122011
%N A209620 Emirps that become their own reversals when rotated through 180 degrees (including on calculator display).
%C A209620 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 A209620 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 A209620 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 A209620 Cf. A006567.
%K A209620 nonn,base
%O A209620 1,1
%A A209620 _Lekraj Beedassy_, Mar 21 2012