

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



