The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A181849 Row sums of A181851 3
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Table of n, a(n) for n=1..25. MAPLE with(combstruct): a181849 := 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; od; L end: 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 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified November 29 00:31 EST 2023. Contains 367422 sequences. (Running on oeis4.)