OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..93
FORMULA
Find the products and sums of first k consecutive composites. When the product divided by the sum produces an integral quotient, add product to sequence.
EXAMPLE
a(3) = 2903040 because 4*6*8*9*10*12*14 = 2903040 and 4+6+8+9+10+12+14 = 63; 2903040/63 = 46080, integral -- 2903040 is added to the sequence.
MATHEMATICA
With[{c=Select[Range[100], CompositeQ]}, Table[If[IntegerQ[ Times@@Take[ c, n]/Total[ Take[ c, n]]], Times@@ Take[ c, n], 0], {n, Length[c]}]]/.(0-> Nothing) (* Harvey P. Dale, Apr 29 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Jun 01 2008
EXTENSIONS
Checked by N. J. A. Sloane, Oct 02 2011
Edited by N. J. A. Sloane, Apr 29 2018
STATUS
approved