This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A064993 #17 Dec 15 2017 17:35:43 %S A064993 35,36,837,838,1395,1396,1397,1398,1419,1420,1421,1422,1491,1492,1505, %T A064993 1506,1507,1508,1509,1510,1687,1688,1689,1690,1691,1692,1725,1726, %U A064993 1727,1728,1729,1730,1731,1732,1945,1946,1947,1948,1953,1954,1955,1956,1957 %N A064993 Values for which A065358 is smaller than any preceding term. %D A064993 Robert G. Wilson v, personal communication. %H A064993 Harry J. Smith, <a href="/A064993/b064993.txt">Table of n, a(n) for n=1..1000</a> %t A064993 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}] %o A064993 (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 %Y A064993 Cf. A064973. %K A064993 nonn %O A064993 1,1 %A A064993 _Jason Earls_, Oct 31 2001 %E A064993 More terms from _Robert G. Wilson v_, Nov 03 2001