|
|
A064973
|
|
Values for which A065358 is larger than any preceding term.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
REFERENCES
|
Robert G. Wilson v, personal communication.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|