OFFSET
1,16
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
EulerPhi[EulerPhi[DivisorSigma[0, Range[100]]]] (* G. C. Greubel, Dec 20 2016 *)
PROG
(PARI) vector(100, n, eulerphi(eulerphi(numdiv(n)))) \\ G. C. Greubel, Dec 20 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jul 25 2009
EXTENSIONS
More terms added by G. C. Greubel, Dec 20 2016
STATUS
approved