login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181854 Triangle read by rows: Partial row sums of A181853(n,k) 5

%I

%S 1,1,2,1,4,6,1,7,18,24,1,11,42,76,88,1,16,97,286,468,528,1,22,163,556,

%T 1050,1332,1392,1,29,317,1697,4942,8682,10716,11136,1,37,493,3209,

%U 11502,24770,36108,41016,41856

%N Triangle read by rows: Partial row sums of A181853(n,k)

%H Alois P. Heinz, <a href="/A181854/b181854.txt">Rows n = 0..25, flattened</a>

%e [0] 1

%e [1] 1 2

%e [2] 1 4 6

%e [3] 1 7 18 24

%e [4] 1 11 42 76 88

%e [5] 1 16 97 286 468 528

%e [6] 1 22 163 556 1050 1332 1392

%p with(combstruct):

%p a181854_row := proc(n) local k,L,l,R,comb;

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

%p for k from 0 to n do

%p comb := iterstructs(Combination(n),size=k):

%p while not finished(comb) do

%p l := nextstruct(comb);

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

%p od;

%p R := R,L;

%p od;

%p R end:

%t t[_, 0] = 1; t[n_, k_] := Sum[LCM @@ c, {c, Subsets[Range[n], {k}]}]; row[n_] := Table[t[n, k], {k, 0, n}] // Accumulate; Table[row[n], {n, 0, 8}] // Flatten (* _Jean-Fran├žois Alcover_, Jul 30 2013 *)

%Y Cf. A096179, A181853.

%K nonn,tabl

%O 0,3

%A _Peter Luschny_, Dec 06 2010

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 17 03:42 EDT 2021. Contains 347478 sequences. (Running on oeis4.)