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 A064439 #20 Dec 15 2017 17:35:39 %S A064439 4,55,65,95,125,145,155,185,205,2779,2863,55297,174691,174779,487903, %T A064439 1301989,1302457,5254751,6383483,23140961,48267437,59651051,70111213, %U A064439 70111247,92514491,199445641,212210443,514269523,514269599,21881358361,1602278990111 %N A064439 Numbers n such that sigma(n) - n - 1 = pi(n). %C A064439 a(32) > 3*10^12. - _Giovanni Resta_, Mar 31 2017 %t A064439 Select[Range[10^5], DivisorSigma[1, #] - # - 1 == PrimePi[#] &] (* _Giovanni Resta_, Mar 31 2017 *) %o A064439 (PARI) sig(n) = sigma(n)-n-1; pi(x, c=0) = forprime(p=2,x,c++); c for(n=1,10^8, if(sig(n)==pi(n),print(n))) %o A064439 (PARI) { n=0; for (m=1, 10^9, if ((sigma(m) - m - 1)==primepi(m), write("b064439.txt", n++, " ", m); if (n==100, break)) ) } \\ _Harry J. Smith_, Sep 14 2009 %Y A064439 Cf. A000720, A048050. %K A064439 nonn %O A064439 1,1 %A A064439 _Jason Earls_, Oct 01 2001 %E A064439 More terms from _Klaus Brockhaus_, Oct 05 2001. No further term < 800000. %E A064439 a(16)-a(17) from _Harry J. Smith_, Sep 14 2009 %E A064439 a(18)-a(29) from _Donovan Johnson_, Feb 09 2013 %E A064439 a(30)-a(31) from _Giovanni Resta_, Mar 31 2017