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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181849 Row sums of A181851 3

%I #11 Feb 05 2014 03:30:05

%S 1,3,8,19,49,112,273,631,1450,3327,7571,17170,38519,85951,190392,

%T 419759,921189,2013874,4385889,9516273,20577618,44352499,95324853,

%U 204307052,436768151

%N Row sums of A181851

%p with(combstruct):

%p a181849 := proc(n) local k,L,l,R,comp;

%p R := NULL; L := 0;

%p for k from 1 to n do

%p comp := iterstructs(Composition(n),size=k):

%p while not finished(comp) do

%p l := nextstruct(comp);

%p L := L + ilcm(op(l));

%p od;

%p od;

%p L end:

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

%Y Cf. A181850, A181851.

%K nonn

%O 1,2

%A _Peter Luschny_, Dec 07 2010

%E a(23)-a(25) from _Alois P. Heinz_, Jul 29 2013

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 26 05:55 EST 2024. Contains 370335 sequences. (Running on oeis4.)