OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..411 (terms < 10^12, a(1)-a(33) from Harry J. Smith, a(34)-a(100) from Donovan Johnson)
PROG
(PARI) for(n=1, 10^5, if(eulerphi(n)-numdiv(n)==eulerphi(n+1)-numdiv(n+1), print(n)))
(PARI) { n=0; s=1; for (m=1, 10^9, if (s!=(r=(eulerphi(m) - numdiv(m))), s=r, write("b063069.txt", n++, " ", m - 1); if (n==100, break)) ) } \\ Harry J. Smith, Aug 16 2009
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Jason Earls, Aug 04 2001
EXTENSIONS
More terms from Naohiro Nomoto, Nov 04 2001
More terms from Harry J. Smith, Aug 16 2009
STATUS
approved