A181849 Row sums of A181851.

1, 1, 3, 8, 19, 49, 112, 273, 631, 1450, 3327, 7571, 17170, 38519, 85951, 190392, 419759, 921189, 2013874, 4385889, 9516273, 20577618, 44352499, 95324853, 204307052, 436768151, 931448065, 1981879262, 4207887155, 8916102661, 18856430826, 39807226901, 83892649091

Offset: 0

Author

Peter Luschny, Dec 07 2010

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..150

Crossrefs

Cf. A181850, A181851.

Programs

Maple

with(combstruct):
a181849 := proc(n) local k,L,l,comp;
L := 1-signum(n);
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;
od;
L end:
seq(a181849(n), n=0..15);

Mathematica

c[n_, k_] := Permutations /@ IntegerPartitions[n, {k}] // Flatten[#, 1]&; t[n_, k_] := Total[LCM @@@ c[n, k]]; Table[Print[s = Sum[t[n, k], {k, 1, n}]]; s, {n, 1, 25}]  (* Jean-François Alcover, Feb 05 2014 *)

Extensions

a(23)-a(25) from Alois P. Heinz, Jul 29 2013

a(0), a(26)-a(32) from Alois P. Heinz, Jun 18 2024