OFFSET
1,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[DivisorSigma[1, EulerPhi[DivisorSigma[0, n]]], {n, 100}] (* Harvey P. Dale, Jun 21 2016 *)
PROG
(PARI) vector(100, n, sigma(eulerphi(numdiv(n)))) \\ G. C. Greubel, Dec 20 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 25 2009
EXTENSIONS
More terms from Harvey P. Dale, Jun 21 2016
STATUS
approved