A158818 Number of partitions of A006003(n).

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

Offset: 3

Author

Paul Muljadi, Mar 27 2009

Keywords

• nonn

Crossrefs

Cf. A000041, A006003.

Programs

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 *)

Formula

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

Extensions

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