OFFSET
1,1
COMMENTS
A cycle of length 2 also starts at 3852635996160. 3852635996160, 4869303828480, and 23971865863680 are also terms in the sequence. The sequence is complete through 10^13. - Jud McCranie, Sep 14 2024
EXAMPLE
phi(sigma(4)) = 6 and phi(sigma(6)) = 4, so 4 (the smallest term) is in the sequence.
MATHEMATICA
Select[Range[10^6], # == EulerPhi[DivisorSigma[1, EulerPhi[DivisorSigma[1, #]]]] && # < EulerPhi[DivisorSigma[1, #]]&] (* Stefano Spezia, Jun 07 2024 *)
PROG
(PARI) isok(x) = my(y = eulerphi(sigma(x))); if (y > x, x == eulerphi(sigma(y))); \\ Michel Marcus, Jun 06 2024
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jud McCranie, Jun 06 2024
STATUS
approved