OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..70
EXAMPLE
EulerPhi(459) = 288 = 1008 - 720 = sigma(460) - sigma(459). [corrected by Harry J. Smith, Feb 03 2010]
MATHEMATICA
Select [Range[1, 10^6], EulerPhi[ # ] == DivisorSigma[1, # + 1] - DivisorSigma[1, # ] & ]
PROG
(PARI) { n=0; for (m=1, 10^9, if (eulerphi(m) == sigma(m + 1) - sigma(m), write("b066152.txt", n++, " ", m); if (n==70, return)) ) } \\ Harry J. Smith, Feb 03 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Dec 13 2001
EXTENSIONS
More terms from Robert G. Wilson v, Dec 27 2001
a(25)-a(28) from Harry J. Smith, Feb 03 2010
STATUS
approved