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,2

References

Robert G. Wilson v, personal communication.

Links

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

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}]

Prog

(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

Crossrefs

Sequence in context: A198097 A358762 A157908 * A133764 A163643 A139558

Adjacent sequences: A064970 A064971 A064972 * A064974 A064975 A064976

Keyword

nonn

Author

Jason Earls, Oct 31 2001

Status

approved