login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A320964 a(n) = Sum_{j=0..n} Sum_{k=0..j} Stirling2(j - k, k). 4
1, 1, 2, 3, 5, 9, 18, 40, 98, 262, 757, 2344, 7723, 26918, 98790, 380361, 1531699, 6434386, 28130891, 127729731, 601196429, 2928369918, 14738842362, 76547694742, 409718539682, 2257459567237, 12789959138944, 74439150889081, 444647798089246, 2723583835351856 (list; graph; refs; listen; history; text; internal format)
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
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
Row sums of A320955 seen as a triangle.
Sequence in context: A097332 A099236 A234535 * A130581 A051236 A003218
KEYWORD
nonn
AUTHOR
Peter Luschny, Nov 06 2018
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 11:14 EDT 2024. Contains 371278 sequences. (Running on oeis4.)