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 A141091 #15 Jan 12 2020 09:56:05 %S A141091 4,27,63,112,175,224,250,400,847,896,2368,2448,2695,3596,4300,4624, %T A141091 4961,5076,5546,6032,6156,6664,8750,9048,9200,9976,10295,11620,12312, %U A141091 13572,14697,15872,16275,18139,18352,23572,24304,25544,26814,27072,29986 %N A141091 Integral quotients of products of consecutive composites divided by their sums: sums (divisors). %H A141091 Amiram Eldar, <a href="/A141091/b141091.txt">Table of n, a(n) for n = 1..10000</a> %F A141091 Find the products and sums of consecutive composites. When the products divided by the sums produce integral quotients, add terms to sequence. %e A141091 a(3) = 63 because 4*6*8*9*10*12*14 = 2903040 and 4+6+8+9+10+12+14 = 63; 2903040/63 = 46080, integral -- 63 is added to the sequence. %t A141091 comp = Select[Range[500], CompositeQ]; sum = Accumulate[comp]; sum[[Position[ Rest@FoldList[Times, 1, comp]/sum, _?IntegerQ] // Flatten]] (* _Amiram Eldar_, Jan 12 2020 *) %Y A141091 Cf. A196415, A141089, A141090, A141092. %Y A141091 Compare with A140761, A159578, A140763, A116536. %K A141091 easy,nonn %O A141091 1,1 %A A141091 _Enoch Haga_, Jun 01 2008 %E A141091 a(37) corrected by _Amiram Eldar_, Jan 12 2020