|
|
A074121
|
|
Group successively larger composite numbers so that the sum of the n-th group is a multiple of n. Sequence gives the first term in each group.
|
|
3
|
|
|
4, 6, 8, 12, 14, 18, 20, 24, 25, 36, 48, 52, 69, 104, 112, 129, 160, 187, 207, 243, 259, 291, 301, 310, 315, 333, 356, 361, 388, 425, 450, 471, 519, 528, 608, 633, 665, 668, 687, 721, 783, 790, 875, 897, 994, 1016, 1047, 1138, 1174, 1179, 1274, 1278, 1344
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
NextComposite[n_] := Block[{k = n + 1}, While[PrimeQ[k], k++ ]; k]; a = {}; k = 1; Do[s = 0; a = Append[a, NextComposite[k]]; While[k = NextComposite[k]; s = s + k; ! IntegerQ[s/n], ], {n, 1, 55}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|