OFFSET
1,1
REFERENCES
Robert G. Wilson v, personal communication.
LINKS
Harry J. Smith, Table of n, a(n) for n=1..1000
MATHEMATICA
a = b = p = s = 0; Do[If[PrimeQ[n], p++ ]; s = s + (-1)^p; If[s < b, b = s; Print[n]], {n, 1, 10^3}]
PROG
(PARI) { n=b=c=0; for (m=1, 10^9, b+=(-1)^primepi(m); if (b<c, c=b; write("b064993.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 02 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Oct 31 2001
EXTENSIONS
More terms from Robert G. Wilson v, Nov 03 2001
STATUS
approved