|
Search: id:A074121
|
|
|
| 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. |
|
+0
4
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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
|
Cf. A002808, A074129, A074120, A074122, A074123.
Sequence in context: A107303 A028876 A053579 this_sequence A055670 A141096 A089257
Adjacent sequences: A074118 A074119 A074120 this_sequence A074122 A074123 A074124
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 27 2002
|
|
EXTENSIONS
|
Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 29 2002
|
|
|
Search completed in 0.002 seconds
|
