|
%I #3 Dec 05 2013 19:55:33
%S 4,3,9,3,9,3,9,3,30,33,18,65,178,46,120,225,224,175,341,175,340,121,
%T 106,39,207,251,53,307,434,291,252,649,111,1132,372,468,54,285,541,
%U 996,115,1446,371,1803,424,200,526,185,488,243,149,190,55,224,486,188,170
%N Group successively larger composite numbers so that the sum of the n-th group is a multiple of n. Sequence gives group sum divided by n for the n-th group.
%F A074120(n)/n.
%e (4), (6), (8, 9, 10), (12), (14, 15, 16), (18), (20, 21, 22), (24), (25, 26, 27, 28, 30, 32, 33, 34, 35), (36, 38, 39, 40, 42, 44, 45, 46), (48, 49, 50, 51), ...
%t NextComposite[n_] := Block[{k = n + 1}, While[PrimeQ[k], k++ ]; k];
%Y Cf. A002808, A074131, A074120, A074121, A074122.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Aug 27 2002
%E Edited, corrected and extended by _Robert G. Wilson v_, Aug 29 2002
|
