[seqfan] Re: Breaking news on partition numbers.

[RGWv]

?Neil,

They are fairly short.

Bob.

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]]

-----Original Message----- 
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?

Best regards
  Neil


_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/