login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A275310 Number of set partitions of [n] with nonincreasing block sizes. 8

%I

%S 1,1,2,4,11,30,102,346,1353,5444,24170,110082,546075,2777828,15099359,

%T 84491723,499665713,3035284304,19375261490,126821116410,866293979945,

%U 6072753348997,44193947169228,329387416656794,2542173092336648,20069525888319293

%N Number of set partitions of [n] with nonincreasing block sizes.

%H Alois P. Heinz, <a href="/A275310/b275310.txt">Table of n, a(n) for n = 0..612</a>

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Partition_of_a_set">Partition of a set</a>

%e a(3) = 4: 123, 12|3, 13|2, 1|2|3.

%e a(4) = 11: 1234, 123|4, 124|3, 12|34, 12|3|4, 134|2, 13|24, 13|2|4, 14|23, 14|2|3, 1|2|3|4.

%p b:= proc(n, i) option remember; `if`(n=0, 1, add(

%p b(n-j, j)*binomial(n-1, j-1), j=1..min(n, i)))

%p end:

%p a:= n-> b(n$2):

%p seq(a(n), n=0..35);

%t b[n_, i_] := b[n, i] = If[n==0, 1, Sum[b[n-j, j]*Binomial[n-1, j-1], {j, 1, Min[n, i]}]]; a[n_] := b[n, n]; Table[a[n], {n, 0, 35}] (* _Jean-Fran├žois Alcover_, Feb 02 2017, translated from Maple *)

%Y Cf. A007837, A038041, A275309, A275311, A275312, A275313, A286071.

%K nonn

%O 0,3

%A _Alois P. Heinz_, Jul 22 2016

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 2 11:06 EDT 2021. Contains 346422 sequences. (Running on oeis4.)