OFFSET
1,13
LINKS
FORMULA
A(n,k) = Sum_{j=1..k} A292086(n,j).
EXAMPLE
: T(4,3) = 4 :
: :
: o o o o :
: / \ / \ / \ /|\ :
: o N o o o N o N N :
: / \ ( ) ( ) /|\ ( ) :
: o N N N N N N N N N N :
: ( ) :
: N N :
: :
Square array A(n,k) begins:
1, 1, 1, 1, 1, 1, 1, 1, ...
0, 1, 1, 1, 1, 1, 1, 1, ...
0, 1, 2, 2, 2, 2, 2, 2, ...
0, 2, 4, 5, 5, 5, 5, 5, ...
0, 3, 9, 11, 12, 12, 12, 12, ...
0, 6, 23, 30, 32, 33, 33, 33, ...
0, 11, 58, 80, 87, 89, 90, 90, ...
0, 23, 156, 228, 251, 258, 260, 261, ...
MAPLE
b:= proc(n, i, v, k) option remember; `if`(n=0,
`if`(v=0, 1, 0), `if`(i<1 or v<1 or n<v, 0,
`if`(v=n, 1, add(binomial(A(i, k)+j-1, j)*
b(n-i*j, i-1, v-j, k), j=0..min(n/i, v)))))
end:
A:= proc(n, k) option remember; `if`(n<2, n,
add(b(n, n+1-j, j, k), j=2..min(n, k)))
end:
seq(seq(A(n, 1+d-n), n=1..d), d=1..14);
MATHEMATICA
b[n_, i_, v_, k_] := b[n, i, v, k] = If[n == 0, If[v == 0, 1, 0], If[i < 1 || v < 1 || n < v, 0, If[v == n, 1, Sum[Binomial[A[i, k] + j - 1, j]*b[n - i*j, i - 1, v - j, k], {j, 0, Min[n/i, v]}]]]];
A[n_, k_] := A[n, k] = If[n < 2, n, Sum[b[n, n + 1 - j, j, k], {j, 2, Min[n, k]}]];
Table[Table[A[n, 1 + d - n], {n, 1, d}], {d, 1, 14}] // Flatten (* Jean-François Alcover, Nov 07 2017, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Alois P. Heinz, Sep 08 2017
STATUS
approved