OFFSET
1,10
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
EXAMPLE
n=50, n_1 = n - phi(n) = 50 - 20 = 30, n_2 = n_1 - Phi(n_1) = 30 - 8 = 22, n_3 = 22 - Phi(22) = 12 so the 50th term is 12.
MATHEMATICA
Array[Nest[# - EulerPhi@ # &, #, 3] &, 95] (* Michael De Vlieger, Dec 23 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 14 2000
STATUS
approved