|
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|