login
Largest m such that p(m)< 10^n, where p(m) is the partition function A000041(m).
0

%I #5 Mar 31 2012 10:26:03

%S 5,12,21,32,45,60,76,94,114,135,159,184,210,239,269,301,334,369,406,

%T 444,485,526,570,615,662,710,760,812,866,921,977,1036,1096,1158,1221,

%U 1286,1353,1421,1491,1562,1636,1710,1787,1865,1945

%N Largest m such that p(m)< 10^n, where p(m) is the partition function A000041(m).

%t For[n = 1, n < 2000, n++, If[Floor[Log[10, PartitionsP[n]]] + 1 == Floor[Log[10, PartitionsP[n + 1]]], Print[n]]] (Steinerberger)

%Y Cf. A000041.

%K nonn

%O 1,1

%A _Lekraj Beedassy_, Sep 07 2004

%E More terms from _Stefan Steinerberger_, Feb 03 2006