Search: id:A074121
Results 1-1 of 1 results found.

%I A074121
%S A074121 4,6,8,12,14,18,20,24,25,36,48,52,69,104,112,129,160,187,207,243,259,
%T A074121 291,301,310,315,333,356,361,388,425,450,471,519,528,608,633,665,668,
%U A074121 687,721,783,790,875,897,994,1016,1047,1138,1174,1179,1274,1278,1344
%N 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.
%t A074121 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
%Y A074121 Cf. A002808, A074129, A074120, A074122, A074123.
%Y A074121 Sequence in context: A107303 A028876 A053579 this_sequence A055670 A141096 
               A089257
%Y A074121 Adjacent sequences: A074118 A074119 A074120 this_sequence A074122 A074123 
               A074124
%K A074121 nonn
%O A074121 1,1
%A A074121 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 27 2002
%E A074121 Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Aug 29 2002

Search completed in 0.001 seconds