OFFSET
1,18
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, n_4 = n_3 - Phi(n_3) = 12 - 4 = 8 so the 50th term is 8.
MATHEMATICA
Array[Nest[# - EulerPhi@ # &, #, 4] &, 102] (* Michael De Vlieger, Dec 23 2017 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 14 2000
STATUS
approved