unrestricted partition function

Eric W. Weisstein eww at wolfram.com
Thu Nov 14 16:42:03 CET 2002


On Thu, 14 Nov 2002, Ralf Stephan wrote:

> Bonjour,
> are there tabulations of part(10^6) and above? Searching the net
> did not succeed. I at least want to confirm part(10^6) given below,
> which needed 7.5 min on a G3/400. Thanks in advance!  ralf
> 
> p(1000000)=
> 1471684986358223398631004760609895943484030484439142125334612747351666117418\\
> 9186182763301488739835975558420153741306002880959293873471282322703278495780\\
> 0193278439607206422865904871302017097184076102567647986084690814282935670692\\
> 9785991290519899445490672219997823452874982974022288229850136767566294781887\\
> 4946878790038246999881977292006320686687359966622738167982662134824172084466\\
> 3102742800191813219817718064651123454259502672842445259229678119344813999466\\
> 4730105742564359154794989181485285351370551399476719981691459022015599101959\\
> 6014174740757154307500221848958152093390124817344694483193232801506653840429\\
> 9405417958775176129491624814247999880293650719525707448504757166277176390339\\
> 1442495113823298195263008336489826045837712202455304996382144601028531832004\\
> 5190465919683027875374181184860006120168525935427419802150462672454732373218\\
> 4583342751252422746539913017407694128084740083154221799928607110833630331629\\
> 8289102444649696805395416791875480010852636774022023128467646919775022348562\\
> 5207477418433436578015341307047619755303751697079992870402856778416193474723\\
> 68171772154046664303121315630003467104673818

It takes 4.1 seconds in Mathemtica.

Cheers,
-E

In[1]:=
PartitionsP[10^6]//Timing

Out[1]=
{4.14 Second,\
147168498635822339863100476060989594348403048443914212533461274735166611741891\
861827633014887398359755584201537413060028809592938734712823227032784957800193\
278439607206422865904871302017097184076102567647986084690814282935670692978599\
129051989944549067221999782345287498297402228822985013676756629478188749468787\
900382469998819772920063206866873599666227381679826621348241720844663102742800\
191813219817718064651123454259502672842445259229678119344813999466473010574256\
435915479498918148528535137055139947671998169145902201559910195960141747407571\
543075002218489581520933901248173446944831932328015066538404299405417958775176\
129491624814247999880293650719525707448504757166277176390339144249511382329819\
526300833648982604583771220245530499638214460102853183200451904659196830278753\
741811848600061201685259354274198021504626724547323732184583342751252422746539\
913017407694128084740083154221799928607110833630331629828910244464969680539541\
679187548001085263677402202312846764691977502234856252074774184334365780153413\
070476197553037516970799928704028567784161934747236817177215404666430312131563\
0003467104673818} 






More information about the SeqFan mailing list