This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A141089 #15 Jan 12 2020 09:55:44 %S A141089 4,9,14,18,22,25,26,33,48,49,78,80,84,95,105,110,114,115,119,123,124, %T A141089 129,147,150,152,158,160,170,175,184,190,200,202,212,213,242,245,250, %U A141089 256,258,272,284,287,288,291,306,309,314,319,327,332,333,336,342,343 %N A141089 Integral quotients of products of consecutive composites divided by their sums: Last consecutive composite. %H A141089 Amiram Eldar, <a href="/A141089/b141089.txt">Table of n, a(n) for n = 1..10000</a> %F A141089 Find the products and sums of consecutive composites. When the products divided by the sums produce integral quotients, add terms to sequence. %e A141089 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. %t A141089 comp = Select[Range[500], CompositeQ]; comp[[Position[Rest @ FoldList[Times, 1, comp]/Accumulate[comp], _?IntegerQ] // Flatten]] (* _Amiram Eldar_, Jan 12 2020 *) %Y A141089 Cf. A141090, A141091, A141092. %Y A141089 Compare with A140761, A159578, A140763, A116536. %K A141089 easy,nonn %O A141089 1,1 %A A141089 _Enoch Haga_, Jun 01 2008