OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..311 (terms 1..71 from Robert G. Wilson v)
MATHEMATICA
nn = 10^7; t = Range[1, nn, 2]; sieve[n_] := Module[{k = t[[n]]}, t = Delete[t, Table[{i}, {i, k, Length[t], k}]]]; n = 1; While[ t[[n]] < Length[t], n++; sieve[n]]; palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[ idn]]; Select[t, PrimeQ@# && palQ[#, 2] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jun 20 2014
STATUS
approved