Table[PartitionsP[n],{n,0,100}]

PartitionsP[100]-1