|
|
A333873
|
|
Numbers that equal to the sum of their iterated absolute Möbius divisor function (A173557).
|
|
1
|
|
|
3, 5, 17, 257, 413, 611, 1391, 1589, 1903, 2327, 5599, 27959, 29623, 36647, 36983, 38863, 42851, 43919, 46463, 49513, 65537, 76759, 82969, 86567, 88759, 96839, 111179, 116479, 129307, 171191, 184979, 213041, 277619, 301157, 310519, 346151, 362263, 372227, 375167
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A variant of A082897 (perfect totient numbers) in which the absolute Möbius divisor function (A173557) replaces the Euler totient function (A000010).
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
f[p_, e_] := p - 1; u[1] = 1; u[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[10^4], Plus @@ FixedPointList[u, #] == 2*# + 1 &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|