|
|
A245842
|
|
Triangle T read by rows: T(n,k) = Total number of even parts in all partitions of n with exactly k parts, 1 <= k <= n.
|
|
4
|
|
|
0, 1, 0, 0, 1, 0, 1, 2, 1, 0, 0, 2, 2, 1, 0, 1, 2, 5, 2, 1, 0, 0, 3, 4, 5, 2, 1, 0, 1, 4, 7, 8, 5, 2, 1, 0, 0, 4, 8, 10, 8, 5, 2, 1, 0, 1, 4, 12, 14, 15, 8, 5, 2, 1, 0, 0, 5, 12, 19, 18, 15, 8, 5, 2, 1, 0, 1, 6, 18, 24, 27, 24, 15, 8, 5, 2, 1, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,8
|
|
COMMENTS
|
Column sequences appear to converge to A066897.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
Triangle begins
0
1 0
0 1 0
1 2 1 0
0 2 2 1 0
1 2 5 2 1 0
0 3 4 5 2 1 0
1 4 7 8 5 2 1 0
0 4 8 10 8 5 2 1 0
1 4 12 14 15 8 5 2 1 0
0 5 12 19 18 15 8 5 2 1 0
|
|
MAPLE
|
b:= proc(n, i, k) option remember; `if`(n=0, [`if`(k=0, 1, 0), 0],
`if`(i<1 or k=0, [0$2], ((f, g)-> f+g+[0, `if`(irem(i, 2)=0,
g[1], 0)])(b(n, i-1, k), `if`(i>n, [0$2], b(n-i, i, k-1)))))
end:
T:= (n, k)-> b(n$2, k)[2]:
|
|
MATHEMATICA
|
Grid[Table[Sum[Count[Flatten[IntegerPartitions[n, {k}]], i], {i, 2, n, 2}], {n, 11}, {k, n}]]
(* second program: *)
b[n_, i_, k_] := b[n, i, k] = If[n == 0, {If[k == 0, 1, 0], 0}, If[i < 1 || k == 0, {0, 0}, Function[{f, g}, f + g + {0, If[Mod[i, 2] == 0, g[[1]], 0]}][b[n, i-1, k], If[i > n, {0, 0}, b[n-i, i, k-1]]]]];
T[n_, k_] := b[n, n, k][[2]];
|
|
CROSSREFS
|
Cf. A245843 (partial sums of row entries).
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|