OFFSET
1,1
LINKS
Jeppe Stig Nielsen, Table of n, a(n) for n = 1..10000
PROG
(Magma) [ p: p in PrimesUpTo(200000000) | IsOdd(d) and D[(d+1) div 2] eq 0 and D eq Reverse(D) where d is #D where D is Intseq(p) ]; // Vincenzo Librandi, Apr 12 2011
(PARI) for(m=2, 5, forstep(j=10^(m-1), 10^m-1, 10, d=digits(j); p=fromdigits(vector(2*m-1, x, if(x<m, d[x], d[2*m-x]))); isprime(p)&&print1(p, ", "))) \\ Jeppe Stig Nielsen, Feb 20 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 25 2003
STATUS
approved