OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..426 (terms below 10^9, terms 1..66 from Robert G. Wilson v)
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
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Corrected and extended by Vit Planocka (planocka(AT)mistral.cz), Jan 31 2003
STATUS
approved