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,3

Links

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

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 *)

Crossrefs

Cf. A181850, A181851.

Sequence in context: A296329 A339525 A295045 * A164586 A018032 A086808

Adjacent sequences: A181846 A181847 A181848 * A181850 A181851 A181852

Keyword

nonn

Author

Peter Luschny, Dec 07 2010

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

Status

approved