OFFSET
1,1
LINKS
James R. Buddenhagen and Giovanni Resta, Table of n, a(n) for n = 1..148 (terms < 10^1000, first 70 terms from J. R. Buddenhagen)
Giovanni Resta, Compact representation of the terms up to 10^20000
MATHEMATICA
Reap[ Do[ If[PrimeQ[p = e*(1+10^(2*n)) + m*10^n], Sow@p], {n, 99}, {e, {1, 3, 7, 9}}, {m, 9}]][[2, 1]] (* Giovanni Resta, May 14 2016 *)
PROG
(Magma) [p: p in PrimesUpTo(100000000) | #[d: d in t[1..#t]| d ne 0] eq 3 and p eq Seqint(Reverse(t)) where t is Intseq(p)]; // Bruno Berselli, May 16 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
James R. Buddenhagen, May 13 2016
STATUS
approved