|
|
A007616
|
|
Palindromic reflectable primes.
(Formerly M2911)
|
|
2
|
|
|
3, 11, 101, 131, 181, 313, 383, 10301, 11311, 13331, 13831, 18181, 30103, 30803, 31013, 38083, 38183, 1003001, 1008001, 1180811, 1183811, 1300031, 1303031, 1311131, 1333331, 1338331, 1831381, 1880881, 1881881, 1883881, 3001003, 3083803, 3103013, 3181813, 3310133
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
C. W. Trigg, Reflectable primes, J. Rec. Math., 15 (No. 1, 1983), p. 252.
|
|
LINKS
|
C. W. Trigg, Reflectable primes, J. Rec. Math., 15 (No. 4, 1983), p. 252. (Annotated scanned copy)
|
|
MAPLE
|
S[1]:= [0, 1, 3, 8]
for i from 2 to 5 do
S[i]:= map(t -> seq(j*(10^(2*i-2)+1)+10*t, j=[0, 1, 3, 8]), S[i-1])
od:
sort(select(isprime, [11, seq(op(S[i]), i=1..5)])); # Robert Israel, Mar 16 2017
|
|
MATHEMATICA
|
Select[FromDigits/@Tuples[{0, 1, 3, 8}, 7], PrimeQ[#]&&PalindromeQ[#]&] (* Harvey P. Dale, Mar 10 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|