login
A163376
a(n) = phi(tau(phi(n))).
1
1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 2, 4, 4, 2, 6, 2, 4, 4, 4, 2, 4, 2, 4, 2, 2, 4, 4, 2, 2, 4, 2, 2, 4, 4, 6, 2, 2, 4, 4, 4, 6, 2, 4, 2, 4, 2, 2, 4, 4, 4, 4, 6, 4, 6, 4, 4, 4, 2, 4, 4, 2, 4, 6, 4, 4, 4, 4, 4
OFFSET
1,5
LINKS
FORMULA
MAPLE
with(numtheory): A163376:=n->phi(tau(phi(n))): seq(A163376(n), n=1..200); # Wesley Ivan Hurt, May 03 2017
MATHEMATICA
EulerPhi[DivisorSigma[0, EulerPhi[Range[100]]]] (* G. C. Greubel, Dec 20 2016 *)
PROG
(PARI) vector(100, n, eulerphi(numdiv(eulerphi(n)))) \\ G. C. Greubel, Dec 20 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jaroslav Krizek, Jul 25 2009
STATUS
approved