A090518 Primes arising in A090517, or 0 if A090517(n) = 0.
5, 11, 83, 769, 3571, 52631, 1428571, 3703703, 83333333, 769230769, 5882352941, 13513513513, 588235294117, 7142857142857, 12195121951219, 151515151515151, 2777777777777777, 22727272727272727, 1111111111111111111
Offset: 1
Programs
-
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
Extensions
Corrected and extended by R. J. Mathar, Nov 19 2006
Comments