A064993 Values for which A065358 is smaller than any preceding term.
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
Offset: 1
Keywords
References
- Robert G. Wilson v, personal communication.
Links
- Harry J. Smith, Table of n, a(n) for n=1..1000
Crossrefs
Cf. A064973.
Programs
-
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}] -
PARI
{ n=b=c=0; for (m=1, 10^9, b+=(-1)^primepi(m); if (b
Extensions
More terms from Robert G. Wilson v, Nov 03 2001