OFFSET
1,1
COMMENTS
Conjecture: No term is zero.
PROG
(PARI) A090520(n)={ local(p, tenn) ; p=2 ; tenn=10^n ; while(tenn/p>=2, if( isprime(floor(tenn/p)), return(floor(tenn/p)) ) ; p=nextprime(p+1) ; ) ; return(0) ; } { for(n=1, 40, print1(A090520(n), ", ") ; ) } - R. J. Mathar, Nov 19 2006
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Dec 07 2003
EXTENSIONS
Corrected and extended by R. J. Mathar, Nov 19 2006
STATUS
approved