OFFSET
1,17
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
Boris Putievskiy, Transformations [Of] Integer Sequences And Pairing Functions, arXiv preprint arXiv:1212.2732 [math.CO], 2012.
FORMULA
EXAMPLE
n=163, the successive iterates applying Euler totient function are as follows: 163,162,54,18,6,2,1. The 5th term is 6, when Phi was applied 4 times. So a(163)=6.
MAPLE
with(numtheory): seq(phi(phi(phi(phi(n)))), n=1..130); # Emeric Deutsch, May 14 2006
MATHEMATICA
a(n)=Nest[ EulerPhi, n, 4 ]
PROG
(PARI) A049100(n) = eulerphi(eulerphi(eulerphi(eulerphi(n)))); \\ Antti Karttunen, Aug 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, Jun 23 2007
STATUS
approved