OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Find the products and sums of consecutive composites. When the products divided by the sums produce integral quotients, add terms to sequence.
EXAMPLE
a(3) = 14 because 4*6*8*9*10*12*14 = 2903040 and 4+6+8+9+10+12+14 = 63; 2903040/63 = 46080, integral -- 14 is added to the sequence.
MATHEMATICA
comp = Select[Range[500], CompositeQ]; comp[[Position[Rest @ FoldList[Times, 1, comp]/Accumulate[comp], _?IntegerQ] // Flatten]] (* Amiram Eldar, Jan 12 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Jun 01 2008
STATUS
approved