OFFSET
1,1
COMMENTS
MATHEMATICA
t1 = Table[ ((2n+1) - (PrimePi[(n+1)^2] - PrimePi[n^2]))/((4n+4)- (PrimePi[(n+2)^2] - PrimePi[n^2])), {n, 1, 100}]; t2= Position[t1, 1/2]; [From Daniel Tisdale, Jul 24 2009]
CROSSREFS
KEYWORD
nonn
AUTHOR
Daniel Tisdale, Jul 21 2009, Jul 24 2009
EXTENSIONS
Corrected by the author, Jul 25 2009
Extended beyond 194 by R. J. Mathar, Sep 27 2009
STATUS
approved