OFFSET
1,1
LINKS
Jud McCranie, Table of n, a(n) for n = 1..10000 (first 65 terms from Harry J. Smith)
EXAMPLE
For m=10013, phi(m)=8640, sigma(m)=11520, 34560 = 4*phi = 3*sigma.
MATHEMATICA
Do[s = 4*EulerPhi[n]-3*DivisorSigma[1, n]; If[Equal[s, 0], Print[n]], {n, 1, 10000000}]
PROG
(PARI) { n=0; for (m=1, 10^9, if (4*eulerphi(m) == 3*sigma(m), write("b065819.txt", n++, " ", m); if (n==65, return)) ) } \\ Harry J. Smith, Oct 31 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 23 2001
STATUS
approved