OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
DivisorSigma[1, DivisorSigma[0, EulerPhi[Range[100]]]] (* G. C. Greubel, Dec 20 2016 *)
PROG
(PARI) vector(100, n, sigma(numdiv(eulerphi(n)))) \\ G. C. Greubel, Dec 20 2016
(Magma) [SumOfDivisors(NumberOfDivisors(EulerPhi(n))): n in [1..80]]; // Vincenzo Librandi, Dec 20 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 25 2009
STATUS
approved