A327870 Row sums of A327869.

1, 2, 2, 11, 14, 47, 305, 611, 2070, 8831, 84077, 204371, 944333, 3850407, 23991739, 297448526, 927586630, 4775902567, 24534836837, 141681919871, 1080484165089, 18553632475991, 66762080435239, 415657332495526, 2298883231736949, 15799818116227747

Offset: 0

Author

Alois P. Heinz, Sep 28 2019

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..500

Crossrefs

Row sums of A327869.

Cf. A320566.

Programs

Maple

b:= proc(n, i, k) option remember; `if`(i*(i+1)/2 b(n$2, 0)*(n+1) -add(b(n$2, k), k=1..n):
seq(a(n), n=0..28);

Mathematica

b[n_, i_, k_] := b[n, i, k] = If[i*(i + 1)/2 < n, 0,
     If[n == 0, 1, If[i < 2, 0, b[n, i - 1, If[i == k, 0, k]]] +
     If[i == k, 0, b[n - i, Min[n - i, i - 1], k]*Binomial[n, i]]]];
a[n_] := b[n, n, 0]*(n + 1) - Sum[b[n, n, k], {k, 1, n}];
Table[a[n], {n, 0, 28}] (* Jean-François Alcover, Mar 28 2022, after Alois P. Heinz *)