A097799 Number of partitions of the n-th deficient number into deficient numbers.

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

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A005100, A000041, A097797, A097800.

Sequence in context: A260523 A114625 A046808 * A005629 A028304 A324840

Adjacent sequences: A097796 A097797 A097798 * A097800 A097801 A097802

Keyword

nonn

Author

Reinhard Zumkeller, Aug 25 2004

Status

approved