A064973 Values for which A065358 is larger than any preceding term.

1, 4, 9, 10, 15, 16, 21, 22, 123, 124, 125, 126, 135, 136, 141, 142, 143, 144, 145, 146, 147, 148, 153, 154, 155, 156, 185, 186, 187, 188, 189, 190, 195, 196, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 343, 344, 345, 346, 351, 352, 365, 366, 387, 388

Offset: 1

Author

Jason Earls, Oct 31 2001

Keywords

• nonn

References

• Robert G. Wilson v, personal communication.

Links

• Harry J. Smith, Table of n, a(n) for n=1..940

Programs

Mathematica

a = b = p = s = 0; Do[If[PrimeQ[n], p++ ]; s = s + (-1)^p; If[s > a, a = s; Print[n]], {n, 1, 10^3}]

PARI

{ n=b=c=0; for (m=1, 10^9, b+=(-1)^primepi(m); if (b>c, c=b; write("b064973.txt", n++, " ", m); if (n==940, return)) ) } \\ Harry J. Smith, Oct 02 2009