OFFSET
1,1
COMMENTS
No more terms < 10^6.
EXAMPLE
Numbers coprime to 9 are 1, 2, 4, 5, 7, 8 and phi(9) = 6. Then, phi(1) + phi(2) + phi(4) + phi(5) + phi(7) + phi(8) = 1 + 1 + 2 + 4 + 6 + 4 = 18 and 18/6 = 3.
MAPLE
with(numtheory): P:=proc(q) local a, k, n; for n from 2 to q do
if not isprime(n) then a:=0;
for k from 1 to n do if gcd(k, n)=1 then a:=a+phi(k); fi; od;
if type(a/phi(n), integer) then print(n); fi; fi; od; end: P(10^9);
PROG
(PARI) isok(n) = (n!=1) && !isprime(n) && (sum(k=1, n-1, if (gcd(k, n) == 1, eulerphi(k), 0)) % eulerphi(n) == 0); \\ Michel Marcus, Oct 29 2014
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Paolo P. Lava, Oct 27 2014
EXTENSIONS
a(8) from Ray Chandler, Nov 07 2014
a(9)-a(10) from Ray Chandler, Nov 11 2014
STATUS
approved