A068006 Number of partitions of n into distinct partition numbers.
1, 2, 5, 9, 17, 28, 47, 72, 112, 164, 242, 342, 486, 668, 920, 1237, 1663, 2193, 2891, 3750, 4861, 6218, 7944, 10037, 12664, 15827, 19749, 24444, 30204, 37057, 45391, 55250, 67141, 81140, 97895, 117529, 140873, 168105, 200285, 237672, 281604
Offset: 0
Keywords
Programs
-
Mathematica
CoefficientList[ Series[1/Product[1 - x^PartitionsQ[i], {i, 1, 50}], {x, 0, 50}], x]
Formula
G.f.: Product_{n>=1} (1/(1-x^A000009(n))).
Extensions
Offset corrected by Sean A. Irvine, Jan 18 2024