|
|
A229877
|
|
Palindromic prime numbers == 1 (mod 9).
|
|
1
|
|
|
181, 757, 919, 12421, 16561, 18181, 19891, 30403, 34543, 35353, 70507, 71317, 77977, 78787, 95959, 96769, 97579, 98389, 1008001, 1065601, 1114111, 1163611, 1196911, 1212121, 1245421, 1253521, 1278721, 1286821, 1327231, 1335331, 1343431, 1409041, 1490941
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Shyam Sunder Gupta, Table of n, a(n) for n = 1..1005
|
|
MATHEMATICA
|
t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 1, AppendTo[t, z]], {n, 1, 99999}]; t
Select[Prime[Range[115000]], PalindromeQ[#]&&Mod[#, 9]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 15 2021 *)
|
|
CROSSREFS
|
Cf. A002385, A229875.
Sequence in context: A253821 A154628 A142731 * A067383 A107255 A163442
Adjacent sequences: A229874 A229875 A229876 * A229878 A229879 A229880
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
Shyam Sunder Gupta, Oct 02 2013
|
|
STATUS
|
approved
|
|
|
|