OFFSET
1,6
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, so the 50th term is 22.
MATHEMATICA
Array[Nest[# - EulerPhi@ # &, #, 2] &, 89] (* Michael De Vlieger, Dec 23 2017 *)
PROG
(PARI)
A051953(n) = (n-eulerphi(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 14 2000
STATUS
approved