OFFSET
3,1
MAPLE
A006003 := proc(n) n*(n^2+1)/2 ; end: A000041 := proc(n) combinat[numbpart](n) ; end: for n from 3 to 20 do printf("%d, ", A000041(A006003(n)) ) : od: # R. J. Mathar, Mar 28 2009
MATHEMATICA
a[n_] := PartitionsP[n*(n^2+1)/2];
Table[a[n], {n, 3, 14}] (* Jean-François Alcover, Apr 04 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Muljadi, Mar 27 2009
EXTENSIONS
Definition simplified, offset adjusted, extended by R. J. Mathar, Apr 04 2009
STATUS
approved