login
A348216
Numbers k such that A348215(k) = k.
1
120, 1320, 2760, 3480, 3720, 4920, 5160, 5640, 6360, 7080, 7320, 8040, 8520, 8760, 9480, 9960, 10680, 11640, 12120, 12360, 12840, 13080, 13560, 14520, 15240, 15720, 16440, 16680, 17880, 18120, 18840, 19560, 20040, 20760, 21480, 21720, 22920, 23160, 23640, 23880
OFFSET
1,1
COMMENTS
Are there odd terms in this sequence? There are none below 10^8.
LINKS
EXAMPLE
120 is a term since the iterations of the map x -> A348158(x) starting from 120 are 120 -> 63 -> 57 and A348215(120) = 57 + 63 = 120.
MATHEMATICA
f[n_] := Plus @@ DeleteDuplicates @ Map[EulerPhi, Divisors[n]]; s[n_] := Plus @@ Most @ FixedPointList[f, n] - n; Select[Range[24000], s[#] == # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 07 2021
STATUS
approved