OFFSET
1,1
COMMENTS
Conjecture: No term is zero.
PROG
(PARI) A090518(n)={ local(k, tenn) ; k=1 ; tenn=10^n ; while(1, if( isprime(floor(tenn/k)), return(floor(tenn/k)) ) ; k++ ; ) ; } { for(n=1, 40, print1(A090518(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