cp's OEIS Frontend

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.

A141090 Integral quotients of products of first k consecutive composites divided by their sums: products (dividends).

This page as a plain text file.
%I A141090 #22 Jan 12 2020 11:34:43
%S A141090 4,1728,2903040,12541132800,115880067072000,69528040243200000,
%T A141090 1807729046323200000,43295255277764345856000000,
%U A141090 20188846756043686829592191472500736000000000,989253491046140654650017382152536064000000000
%N A141090 Integral quotients of products of first k consecutive composites divided by their sums: products (dividends).
%C A141090 Based on A141092.
%C A141090 Compare with A140761 A159578 A140763 A116536.
%C A141090 Take the first k composite numbers. If their product divided by their sum results in an integer, their product is a term of the sequence. - _Harvey P. Dale_, Apr 29 2018
%H A141090 Amiram Eldar, <a href="/A141090/b141090.txt">Table of n, a(n) for n = 1..93</a>
%F A141090 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.
%e A141090 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.
%t A141090 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 *)
%Y A141090 Cf. A196415, A141089, A141091, A141092.
%K A141090 easy,nonn
%O A141090 1,1
%A A141090 _Enoch Haga_, Jun 01 2008
%E A141090 Checked by _N. J. A. Sloane_, Oct 02 2011
%E A141090 Edited by _N. J. A. Sloane_, Apr 29 2018