|
Search: id:A031881
|
|
|
| A031881 |
|
Lucky numbers both palindromic and prime. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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[ # ]]) &]
|
|
CROSSREFS
|
Cf. A000959.
Sequence in context: A012636 A006031 A119958 this_sequence A114789 A128273 A105763
Adjacent sequences: A031878 A031879 A031880 this_sequence A031882 A031883 A031884
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com)
|
|
EXTENSIONS
|
Corrected and extended by Vit Planocka (planocka(AT)mistral.cz), Jan 31 2003
|
|
|
Search completed in 0.002 seconds
|
