OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..29
EXAMPLE
EulerPhi(574) = 240 = 1008 - 768 = sigma(574) - sigma(573).
MATHEMATICA
Select [Range[1, 10^7], EulerPhi[ # ] == DivisorSigma[1, # ] - DivisorSigma[1, # - 1] & ]
PROG
(PARI) { n=0; for (m=2, 10^9, if (eulerphi(m) == sigma(m) - sigma(m - 1), write("b066154.txt", n++, " ", m); if (n==100, return)) ) } \\ Harry J. Smith, Feb 03 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Dec 13 2001
EXTENSIONS
a(11)-a(24) from Harry J. Smith, Feb 03 2010
STATUS
approved