OFFSET
0,3
LINKS
Alois P. Heinz, Rows n = 0..25, flattened
EXAMPLE
[0] 1
[1] 1 2
[2] 1 4 6
[3] 1 7 18 24
[4] 1 11 42 76 88
[5] 1 16 97 286 468 528
[6] 1 22 163 556 1050 1332 1392
MAPLE
with(combstruct):
a181854_row := proc(n) local k, L, l, R, comb;
R := NULL; L := 0;
for k from 0 to n do
comb := iterstructs(Combination(n), size=k):
while not finished(comb) do
l := nextstruct(comb);
L := L + ilcm(op(l));
od;
R := R, L;
od;
R end:
MATHEMATICA
t[_, 0] = 1; t[n_, k_] := Sum[LCM @@ c, {c, Subsets[Range[n], {k}]}]; row[n_] := Table[t[n, k], {k, 0, n}] // Accumulate; Table[row[n], {n, 0, 8}] // Flatten (* Jean-François Alcover, Jul 30 2013 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Dec 06 2010
STATUS
approved