Search: id:A097984 Results 1-1 of 1 results found. %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 Search completed in 0.001 seconds