[seqfan] Re: Breaking news on partition numbers.

[RGWv]

?Et al,

Using Mathematica: s = 0; k = 1; While[k < 10^5, s = N[s + 1/PartitionsP at k, 
2^7]; k++]; s
I get:
5105974838862939532368347274154654516835319449551476819080629965083845329044618423819258714628278097541677092103147719805658720...

Bob.


-----Original Message----- 
From: Douglas McNeil
Sent: Monday, January 24, 2011 2:49 AM
To: Sequence Fanatics Discussion list
Subject: [seqfan] Re: Breaking news on partition numbers.

On Mon, Jan 24, 2011 at 3:31 PM, N. J. A. Sloane <njas at research.att.com> 
wrote:
> Doug, would it be worth adding a txt file to A41 giving
> your Mathematica implementation of the new formula?

Doug -> RGWv.  But I'm also interested in seeing it!

Incidentally, in response to Alexander's question, IIUC then the
reciprocal sum is A078506-- but I can't reproduce the value there.  It
begins

2.51059748388629395323683472741546942523951916485452209748129029526445301999652520326647873530311972

but I find one beginning

2.51059748388629395323683472741546545168353194495514768190806299650838453290446184238192587146282780

Anyone feel like breaking the tie?


Doug

-- 
Department of Earth Sciences
University of Hong Kong

_______________________________________________

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