OFFSET
1,1
COMMENTS
LINKS
H. J. Smith, Table of n, a(n) for n = 1..10000
I. O. Angell and H. J. Godwin, On Truncatable Primes, Math. Comput. 31, 265-267, 1977.
H. J. Smith, Link to programs to generate truncatable primes.
Eric Weisstein's World of Mathematics, Truncatable Prime
PROG
(PARI) zeroin(z)={until(z==0, q=z\10; r=z-10*q; if(r==0, return(1)); z=q; ); return(0); }
{fileO="b144714.txt"; v=vector(15000); v[1]=2; v[2]=3; v[3]=5; v[4]=7; j=4; m=0;
p10=1; until(0, p10*=10; j0=j; for(k=1, 9, k10=k*p10; for(i=1, j0, z=k10+v[i];
if(isprime(z), j++; v[j]=z; if(zeroin(z), m++;
write(fileO, m, " ", z); if(m==10000, break(3)); ))))); }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harry J. Smith, Oct 08 2008
STATUS
approved