OFFSET
1,1
COMMENTS
For k >= 12, A003586 is a subsequence.
EXAMPLE
k = 12 : 12 * phi(12) / (12 + phi(12)) = 12 * 4 / (12 + 4) = 3, thus 12 is a term.
MATHEMATICA
Select[Range[3000], Divisible[#*(phi = EulerPhi[#]), # + phi] &] (* Amiram Eldar, Dec 31 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ctibor O. Zizka, Dec 31 2022
STATUS
approved