|
|
A229876
|
|
Palindromic prime numbers == 2 (mod 9).
|
|
1
|
|
|
2, 11, 101, 191, 353, 929, 13331, 16661, 17471, 19991, 36263, 38783, 70607, 72227, 73037, 74747, 75557, 76367, 78887, 79697, 91019, 94349, 1074701, 1082801, 1123211, 1180811, 1221221, 1262621, 1287821, 1303031, 1311131, 1328231, 1360631, 1508051, 1532351
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
t = {}; Do[z = n*10^(IntegerLength[n] - 1) + FromDigits@Rest@Reverse@IntegerDigits[n]; If[PrimeQ[z] && Mod[z, 9] == 2, AppendTo[t, z]], {n, 1, 99999}]; Insert[t, 11, 2]
Select[Prime[Range[120000]], PalindromeQ[#]&&Mod[#, 9]==2&] (* Harvey P. Dale, Jun 02 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|