OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (calculated from the b-file at A020492)
EXAMPLE
a(5) = phi(A020492(5)) = phi(12) = 4.
PROG
(Magma) [ a: n in [1..3500] | SumOfDivisors(n) mod a eq 0 where a is EulerPhi(n) ]; // Klaus Brockhaus, Nov 09 2008
(PARI) {for(n=1, 5000, a=eulerphi(n); if(sigma(n)%a==0, print1(a, ", ")))} \\ Klaus Brockhaus, Nov 09 2008
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Nov 07 2008
EXTENSIONS
Edited by Klaus Brockhaus, Nov 09 2008
STATUS
approved