OFFSET
0,4
REFERENCES
D. E. Knuth, The Art of Computer Programming, vol. 4, section 7.2.1.5, problem 65.
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..75
EXAMPLE
a(7) = 105 because there are 105 noncrossing set partitions of {1,2,3,4,5,6,7} of type {3,2,1,1} and all other integer partitions of 7 produce fewer noncrossing set partitions.
MATHEMATICA
<<Combinatorica`
ncsp[p_] := FactorialPower[Total[p], Length[p] - 1]/Apply[Times, Map[Factorial[Count[p, #1]] &, Range[Max[p]]]]; a[n_] := Max[Map[ncsp, Partitions[n]]];
Table[a[n], {n, 0, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Dan Drake, Jul 13 2007
EXTENSIONS
Mathematica program fixed by Vaclav Kotesovec, Oct 23 2014
STATUS
approved