OFFSET
0,3
COMMENTS
The row sums of A320955 seen as a triangle are the partial sums of the antidiagonal sums of the triangle of the Stirling set numbers.
Number of partitions of [n] into m blocks that are ordered with increasing least elements and where block m-j contains n-j (m in {0..n}, j in {0..m-1}). a(5) = 9: 12345, 1234|5, 123|4|5, 124|35, 12|3|4|5, 134|25, 13|24|5, 14|235, 1|2|3|4|5. - Alois P. Heinz, May 16 2023
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..665
MAPLE
ListTools:-PartialSums([seq(add(Stirling2(n-k, k), k=0..n), n=0..29)]);
# second Maple program:
b:= proc(n, m) option remember; `if`(n>m,
b(n-1, m)*m+b(n-1, m+1), `if`(n=m, 1, 0))
end:
a:= proc(n) a(n):= `if`(n=0, 0, a(n-1))+b(n, 0) end:
seq(a(n), n=0..30); # Alois P. Heinz, May 16 2023
MATHEMATICA
a[n_] := Sum[Sum[StirlingS2[j - k, k], {k, 0, j}], {j, 0, n}]; Array[a, 30, 0] (* Amiram Eldar, Nov 06 2018 *)
Table[Sum[StirlingS2[j-k, k], {j, 0, n}, {k, 0, j}], {n, 0, 30}] (* Harvey P. Dale, May 15 2019 *)
PROG
(PARI) a(n)={sum(j=0, n, sum(k=0, j, abs(stirling(j-k, k, 2))))} \\ Andrew Howroyd, Nov 06 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 06 2018
STATUS
approved