OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..25, flattened
EXAMPLE
[1] 1
[2] 2 3
[3] 3 7 8
[4] 4 12 18 19
[5] 5 25 40 48 49
[6] 6 27 77 101 111 112
[7] 7 63 129 225 260 272 273
MAPLE
with(combstruct):
a181850_row := proc(n) local k, L, l, R, comp;
R := NULL; L := 0;
for k from 1 to n do
comp := iterstructs(Composition(n), size=k):
while not finished(comp) do
l := nextstruct(comp);
L := L + ilcm(op(l));
od;
R := R, L;
od;
R end:
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Dec 07 2010
STATUS
approved