

A064993


Values for which A065358 is smaller than any preceding term.


1



35, 36, 837, 838, 1395, 1396, 1397, 1398, 1419, 1420, 1421, 1422, 1491, 1492, 1505, 1506, 1507, 1508, 1509, 1510, 1687, 1688, 1689, 1690, 1691, 1692, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1945, 1946, 1947, 1948, 1953, 1954, 1955, 1956, 1957
(list;
graph;
refs;
listen;
history;
text;
internal format)



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

Cf. A064973.
Sequence in context: A210320 A165856 A099647 * A041611 A160775 A160021
Adjacent sequences: A064990 A064991 A064992 * A064994 A064995 A064996


KEYWORD

nonn


AUTHOR

Jason Earls (zevi_35711(AT)yahoo.com), Oct 31 2001


EXTENSIONS

More terms from Robert G. Wilson v, Nov 03 2001


STATUS

approved



