A158818 Number of partitions of A006003(n).

176, 12310, 2012558, 679903203, 435157697830, 495741934760846, 958728697912338045, 3031941282464413132742, 15209368375944215483241988, 117991131259998859170817958839, 1385397746569649033264079085023363, 24166113822086183031380235679888630795

Offset

3,1

Links

Table of n, a(n) for n=3..14.

Formula

a(n) = A000041(A006003(n)).

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

Cf. A000041, A006003.

Sequence in context: A283200 A283730 A083961 * A229317 A035829 A284073

Adjacent sequences: A158815 A158816 A158817 * A158819 A158820 A158821

Keyword

nonn

Author

Paul Muljadi, Mar 27 2009

Extensions

Definition simplified, offset adjusted, extended by R. J. Mathar, Apr 04 2009

Status

approved