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,2

Links

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

Maple

b:= proc(n, i, k) option remember; `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))))
    end:
a:= n-> 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 *)

Crossrefs

Row sums of A327869.

Cf. A320566.

Sequence in context: A279197 A121871 A194638 * A235606 A175202 A187430

Adjacent sequences: A327867 A327868 A327869 * A327871 A327872 A327873

Keyword

nonn

Author

Alois P. Heinz, Sep 28 2019

Status

approved