A229876 Palindromic prime numbers == 2 (mod 9).

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

Offset: 1

Author

Shyam Sunder Gupta, Oct 02 2013

Keywords

• nonn
• base
• less

Links

• Shyam Sunder Gupta, Table of n, a(n) for n = 1..994

Crossrefs

Cf. A002385, A229875.

Programs

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 *)