|
|
|
|
1, 2, 4, 8, 24, 48, 144, 288, 576, 1152, 2304, 3456, 4608, 9216, 11520, 16128, 18432, 20736, 25344, 29952, 36864, 39168, 43776, 52992, 59904, 66816, 85248, 99072, 108288
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=(m = 2; While[Mod[DivisorSigma[n, m], m] > 0, m++]; m); s={}; sn={}; Do[m=f[n]; If[!MemberQ[s, m], AppendTo[s, m]; AppendTo[sn, n]], {n, 1, 1000}]; sn (* Amiram Eldar, Dec 18 2018 after T. D. Noe at A066135 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|