cp's OEIS Frontend

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

%I A181850 #14 Feb 05 2014 03:35:47
%S A181850 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 A181850 225,260,272,273,8,68,248,408,568,616,630,631,9,105,369,801,1126,1370,
%U A181850 1433,1449,1450,10,115,625,1401,2293,2878,3228,3308,3326,3327
%N A181850 Triangle read by rows: Partial row sums of A181851(n,k).
%H A181850 Alois P. Heinz, <a href="/A181850/b181850.txt">Rows n = 1..25, flattened</a>
%e A181850 [1]   1
%e A181850 [2]   2    3
%e A181850 [3]   3    7     8
%e A181850 [4]   4   12    18    19
%e A181850 [5]   5   25    40    48    49
%e A181850 [6]   6   27    77   101   111   112
%e A181850 [7]   7   63   129   225   260   272   273
%p A181850 with(combstruct):
%p A181850 a181850_row := proc(n) local k,L,l,R,comp;
%p A181850 R := NULL; L := 0;
%p A181850 for k from 1 to n do
%p A181850    comp := iterstructs(Composition(n),size=k):
%p A181850    while not finished(comp) do
%p A181850       l := nextstruct(comp);
%p A181850       L := L + ilcm(op(l));
%p A181850    od;
%p A181850    R := R,L;
%p A181850 od;
%p A181850 R end:
%t A181850 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 A181850 Cf. A181849, A181851, A181854.
%K A181850 nonn,tabl
%O A181850 1,2
%A A181850 _Peter Luschny_, Dec 07 2010