|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|