%I A097984
%S A097984 5,12,21,32,45,60,76,94,114,135,159,184,210,239,269,301,334,369,406,444,
%T A097984 485,526,570,615,662,710,760,812,866,921,977,1036,1096,1158,1221,1286,
%U A097984 1353,1421,1491,1562,1636,1710,1787,1865,1945
%N A097984 Largest m such that p(m)< 10^n, where p(m) is the partition function 
               A000041(m).
%t A097984 For[n = 1, n < 2000, n++, If[Floor[Log[10, PartitionsP[n]]] + 1 == Floor[Log[10, 
               PartitionsP[n + 1]]], Print[n]]] (Steinerberger)
%Y A097984 Cf. A000041.
%Y A097984 Sequence in context: A086570 A063559 A121291 this_sequence A028347 A038794 
               A131976
%Y A097984 Adjacent sequences: A097981 A097982 A097983 this_sequence A097985 A097986 
               A097987
%K A097984 nonn
%O A097984 1,1
%A A097984 Lekraj Beedassy (blekraj(AT)yahoo.com), Sep 07 2004
%E A097984 More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Feb 03 2006