OFFSET
1,1
LINKS
Jud McCranie, Table of n, a(n) for n = 1..10000 (first 75 terms from Harry J. Smith)
EXAMPLE
n = 3553, 3*phi(3553) = 8640 = 2*4320 = 2*sigma(3553).
MATHEMATICA
Select[Range[20000000], 3EulerPhi[#] == 2DivisorSigma[1, #] &] (* Harvey P. Dale, Apr 18 2011 *)
PROG
(PARI) { n=0; for (m=1, 10^9, if (3*eulerphi(m) == 2*sigma(m), write("b065818.txt", n++, " ", m); if (n==75, return)) ) } \\ Harry J. Smith, Oct 31 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 23 2001
EXTENSIONS
a(22)-a(28) from Harry J. Smith, Oct 31 2009
STATUS
approved