OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n=1..10000
FORMULA
It seems that for n large enough: log(n) < (1/n)*sum(k=1, n, a(k)) < log(n)+log(log(n)).
a(n) = A053475(n) - 1.
MATHEMATICA
Table[Length@ NestWhileList[# - EulerPhi@ # &, n, # > 0 &] - 1, {n, 105}] (* Michael De Vlieger, Jul 04 2016 *)
PROG
(PARI) a(n)=if(n<2, 1, a(n-eulerphi(n))+1)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Benoit Cloitre, Oct 23 2002
STATUS
approved