A090520 Primes arising in A090519, or 0 if A090519(n)= 0.
5, 7, 43, 769, 1123, 52631, 1428571, 2127659, 14925373, 769230769, 5882352941, 6369426751, 588235294117, 319488817891, 9345794392523, 24449877750611, 662251655629139, 1293661060802069, 67114093959731543, 244498777506112469
Offset: 1
Programs
-
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
Extensions
Corrected and extended by R. J. Mathar, Nov 19 2006
Comments