%I M4892 #20 Apr 03 2023 10:36:09
%S 13,31,113,311,1031,1033,1103,1181,1301,1381,1811,1831,3011,3083,3301,
%T 3803,10333,11003,11083,11833,18013,18133,18803,30011,30881,31033,
%U 31081,31183,33013,33181,33301,33811,38011,38113
%N Reflectable emirps.
%C Subsequence of A125308, the reflectable primes. - _Reinhard Zumkeller_, Jul 16 2014
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D C. W. Trigg, "Reflective Primes", J. Rec. Math., 15 (1983), 251-256.
%H Reinhard Zumkeller, <a href="/A007628/b007628.txt">Table of n, a(n) for n = 1..10000</a>
%H Prime Glossary, <a href="https://t5k.org/glossary/xpage/ReflectablePrime.html">Reflectable prime</a>
%H C. W. Trigg, <a href="/A007628/a007628.pdf">Reflectable primes</a>, J. Recreational Mathematics 15.4 (1983), 253. (Annotated scanned copy)
%o (Haskell)
%o a007628 n = a007628_list !! (n-1)
%o a007628_list = filter f a125308_list where
%o f p = a010051' q == 1 && q /= p where q = a004086 p
%o -- _Reinhard Zumkeller_, Jul 16 2014
%Y Cf. A003684, A006567, A046732, A048051, A048052, A048053, A048054, A048895.
%Y Cf. A010051, A004086, A125308.
%K nonn,base,nice,easy
%O 1,1
%A _N. J. A. Sloane_, _Mira Bernstein_, _Robert G. Wilson v_
%E Missing 1811 inserted by _Reinhard Zumkeller_, Jul 16 2014
|