OFFSET
1,2
COMMENTS
Sort of "InversePartitionsP".
MATHEMATICA
a[n_] := For[k=1, True, k++, If[PartitionsP[k]>n, Return[k-1]]]; Table[ a[n], {n, 100}]
PROG
(PARI) a(n)=my(k=1); while(numbpart(k)<=n, k++); k-1 \\ Charles R Greathouse IV, Jan 14 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Jean-François Alcover, Jan 14 2013
STATUS
approved