|
|
A238896
|
|
Number of times that the number A238895(n) occurs in the sum of proper divisors function (A001065).
|
|
8
|
|
|
0, 1, 2, 3, 5, 6, 8, 9, 10, 13, 15, 20, 21, 24, 25, 27, 32, 34, 41, 44, 46, 56, 59, 70, 74, 76, 86, 92, 99, 115, 116, 129, 138, 145, 156, 164, 169, 171, 193, 199, 222, 223, 242, 246, 268, 270, 278, 295, 304, 334, 343, 365, 397, 398, 433, 452, 471, 482, 521
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
nn = 1000; s = Table[0, {nn}]; Do[k = DivisorSigma[1, n] - n; If[0 < k <= nn, s[[k]]++], {n, nn^2}]; mx = -1; t = {}; Do[If[s[[n]] > mx, mx = s[[n]]; AppendTo[t, {n, mx}]], {n, 2, nn}]; Transpose[t][[2]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|