login
A097799
Number of partitions of the n-th deficient number into deficient numbers.
3
1, 2, 3, 5, 7, 14, 20, 27, 37, 49, 85, 111, 143, 184, 234, 374, 585, 727, 899, 1360, 1664, 2028, 2985, 4343, 5218, 6252, 7474, 8913, 12591, 14918, 17639, 24519, 33836, 39646, 46377, 54165, 63162, 85507, 99276, 115103, 133276, 154116, 205308, 272190
OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, Deficient Number
Eric Weisstein's World of Mathematics, Partition
MATHEMATICA
n = 60; d = Select[Range[n], DivisorSigma[1, #] < 2 # &]; CoefficientList[ Series[1/Product[1 - x^d[[i]], {i, 1, Length[d]}], {x, 0, n}], x][[d + 1]] (* Amiram Eldar, Aug 02 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 25 2004
STATUS
approved