[seqfan] Re: Breaking news on partition numbers.
rgwv at rgwv.com
Mon Jan 24 12:22:57 CET 2011
They are fairly short.
number of partitions of n having no element smaller than k.
f[1, 1] = 1; f[n_, k_] := f[n, k] = If[n < 0, 0, If[k > n, 0, If[k == n, 1,
f[n, k + 1] + f[n - k, k]]]]
number of partitions of n having no element greater than k.
g[n_, 1] := 1; g[1, k_] := 1; g[n_, k_] := g[n, k] = If[k > n, g[n, k - 1],
g[n, k - 1] + g[n - k, k]]
From: N. J. A. Sloane
Sent: Monday, January 24, 2011 2:31 AM
To: seqfan at list.seqfan.eu
Subject: [seqfan] Re: Breaking news on partition numbers.
Doug, would it be worth adding a txt file to A41 giving
your Mathematica implementation of the new formula?
Seqfan Mailing list - http://list.seqfan.eu/
More information about the SeqFan