login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181850 Triangle read by rows: Partial row sums of A181851(n,k). 3

%I #14 Feb 05 2014 03:35:47

%S 1,2,3,3,7,8,4,12,18,19,5,25,40,48,49,6,27,77,101,111,112,7,63,129,

%T 225,260,272,273,8,68,248,408,568,616,630,631,9,105,369,801,1126,1370,

%U 1433,1449,1450,10,115,625,1401,2293,2878,3228,3308,3326,3327

%N Triangle read by rows: Partial row sums of A181851(n,k).

%H Alois P. Heinz, <a href="/A181850/b181850.txt">Rows n = 1..25, flattened</a>

%e [1] 1

%e [2] 2 3

%e [3] 3 7 8

%e [4] 4 12 18 19

%e [5] 5 25 40 48 49

%e [6] 6 27 77 101 111 112

%e [7] 7 63 129 225 260 272 273

%p with(combstruct):

%p a181850_row := proc(n) local k,L,l,R,comp;

%p R := NULL; L := 0;

%p for k from 1 to n do

%p comp := iterstructs(Composition(n),size=k):

%p while not finished(comp) do

%p l := nextstruct(comp);

%p L := L + ilcm(op(l));

%p od;

%p R := R,L;

%p od;

%p R end:

%t c[n_, k_] := Permutations /@ IntegerPartitions[n, {k}] // Flatten[#, 1]&; t[n_, k_] := Total[LCM @@@ c[n, k]]; Table[Print[row = Table[t[n, k], {k, 1, n}] // Accumulate]; row, {n, 1, 25}] // Flatten (* _Jean-Fran├žois Alcover_, Feb 05 2014 *)

%Y Cf. A181849, A181851, A181854.

%K nonn,tabl

%O 1,2

%A _Peter Luschny_, Dec 07 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 06:14 EDT 2024. Contains 371918 sequences. (Running on oeis4.)