OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10001
FORMULA
Even terms of A063742.
EXAMPLE
88 is here because it is the cototient of 120: 88 = 120-phi(120) = 120-32 = 88.
MATHEMATICA
With[{max = 300}, Union@ Select[Table[n - EulerPhi[n], {n, 1, max^2}], # < max && EvenQ[#] &]] (* Amiram Eldar, Jan 12 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 04 2001
EXTENSIONS
Offset corrected by Donovan Johnson, Nov 17 2013
a(1) = 0 inserted by Amiram Eldar, Jan 12 2024
STATUS
approved