|
%I M2911 #32 Apr 03 2023 10:36:09
%S 3,11,101,131,181,313,383,10301,11311,13331,13831,18181,30103,30803,
%T 31013,38083,38183,1003001,1008001,1180811,1183811,1300031,1303031,
%U 1311131,1333331,1338331,1831381,1880881,1881881,1883881,3001003,3083803,3103013,3181813,3310133
%N Palindromic reflectable primes.
%C Also called triadic primes. - _Arkadiusz Wesolowski_, Apr 10 2011
%C Members of A002385 whose digits are in [0,1,3,8]. - _Robert Israel_, Mar 16 2017
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D C. W. Trigg, Reflectable primes, J. Rec. Math., 15 (No. 1, 1983), p. 252.
%H Robert Israel, <a href="/A007616/b007616.txt">Table of n, a(n) for n = 1..10000</a>
%H Chris Caldwell, The Prime Glossary, <a href="https://t5k.org/glossary/xpage/TriadicPrime.html">Triadic prime</a>
%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/22182.html">Prime Curios! 101838101</a>
%H C. W. Trigg, <a href="/A007616/a007616.pdf">Reflectable primes</a>, J. Rec. Math., 15 (No. 4, 1983), p. 252. (Annotated scanned copy)
%p S[1]:= [0,1,3,8]
%p for i from 2 to 5 do
%p S[i]:= map(t -> seq(j*(10^(2*i-2)+1)+10*t, j=[0,1,3,8]), S[i-1])
%p od:
%p sort(select(isprime, [11,seq(op(S[i]),i=1..5)])); # _Robert Israel_, Mar 16 2017
%t Select[FromDigits/@Tuples[{0,1,3,8},7],PrimeQ[#]&&PalindromeQ[#]&] (* _Harvey P. Dale_, Mar 10 2023 *)
%Y Cf. A002385.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, _Robert G. Wilson v_, _Mira Bernstein_
%E More terms from _Arkadiusz Wesolowski_, Sep 30 2011
|
