A031881 Lucky numbers that are both palindromic and prime.

3, 7, 151, 727, 787, 10501, 13831, 18181, 30103, 70207, 72727, 77377, 78487, 93139, 94849, 96469, 96769, 98689, 1008001, 1062601, 1160611, 1190911, 1253521, 1327231, 1409041, 1447441, 1463641, 1490941, 1640461, 1670761, 1684861

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..426 (terms below 10^9, terms 1..66 from Robert G. Wilson v)

Crossrefs

Cf. A000040, A000959, A002113, A002385.

Programs

Mathematica

lst = Range[1, 10^6, 2]; i = 2; While[lst[[i]] <= Length[lst], del = Partition[Range[lst[[i]], Length[lst], lst[[i]]], 1]; lst = Delete[lst, del]; i++ ]; lst = Select[lst, PrimeQ[ # ] &]; lst = Select[lst, (ToString[ # ] == StringReverse[ToString[ # ]]) &]

Extensions

Corrected and extended by Vit Planocka (planocka(AT)mistral.cz), Jan 31 2003