OFFSET
0,2
COMMENTS
LINKS
Jeppe Stig Nielsen, Table of n, a(n) for n = 0..800
PROG
(PARI) a(n)=forstep(j=10^(n+1), +oo, 10^(n+1), d=digits(j); p=fromdigits(vector(2*#d-1, k, if(k<#d, d[k], d[2*#d-k]))); ispseudoprime(p)&&return(j/10^(n+1))) \\ Jeppe Stig Nielsen, Apr 07 2025
CROSSREFS
KEYWORD
base,easy,nonn,less
AUTHOR
David Wasserman, Sep 10 2004
STATUS
approved
