OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MAPLE
with(numtheory): A163371:=n->tau(phi(sigma(n))): seq(A163371(n), n=1..150); # Wesley Ivan Hurt, Dec 19 2016
MATHEMATICA
DivisorSigma[0, EulerPhi[DivisorSigma[1, Range[100]]]] (* G. C. Greubel, Dec 19 2016 *)
PROG
(PARI) vector(50, n, numdiv(eulerphi(sigma(n)))) \\ G. C. Greubel, Dec 19 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jaroslav Krizek, Jul 25 2009
STATUS
approved