OFFSET
1,2
COMMENTS
This sequence has both terms of cycles of length 2 when iterating k <-phi(sigma(k)) (see A373435) plus cycles of length 1 (see A001229). - Jud McCranie, Aug 09 2024
MATHEMATICA
Select[Range[10^6], EulerPhi[DivisorSigma[1, EulerPhi[DivisorSigma[1, #]]]] == # &] (* Amiram Eldar, Apr 24 2022 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 02 2002
EXTENSIONS
More terms from Reiner Martin, Jul 09 2002
a(35)-a(39) from Amiram Eldar, Apr 24 2022
STATUS
approved