A301702 a(n) = [x^n] Product_{k>=0} 1/(1 - x^(2^k))^n.

1, 1, 5, 19, 89, 401, 1877, 8821, 41969, 200899, 967605, 4681491, 22739705, 110816343, 541561333, 2653061819, 13024808161, 64063300481, 315624211781, 1557318893473, 7694243895289, 38060959885345, 188482408625373, 934323819631893, 4635781966972721, 23020536772620401

Offset: 0

Author

Ilya Gutkovskiy, Mar 25 2018

Keywords

• nonn

Comments

Number of binary partitions of n into parts of n kinds.

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
• Index entries for sequences related to partitions

Crossrefs

Cf. A000123, A008485, A018819, A038712, A171238.

Programs

Mathematica

Table[SeriesCoefficient[Product[1/(1 - x^(2^k))^n, {k, 0, n}], {x, 0, n}], {n, 0, 25}]
Table[SeriesCoefficient[Product[(1 + x^(2^k))^(n (k + 1)), {k, 0, n}], {x, 0, n}], {n, 0, 25}]