A293467 a(n) = Sum_{k=0..n} (-1)^k * binomial(n, k) * q(k), where q(k) is A000009 (partitions into distinct parts).

1, 0, 0, -1, -3, -7, -14, -25, -41, -64, -100, -165, -294, -550, -1023, -1795, -2823, -3658, -2882, 2873, 20435, 62185, 148863, 314008, 613957, 1155794, 2175823, 4244026, 8753538, 19006490, 42471787, 95234575, 210395407, 453413866, 949508390, 1931939460

Offset

0,5

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..1000

Vaclav Kotesovec, Graph: a(n)/2^n (40000 terms)

Mathematica

Table[Sum[(-1)^k * Binomial[n, k] * PartitionsQ[k], {k, 0, n}], {n, 0, 50}]

Crossrefs

Cf. A025147, A266232, A294467, A294468.

Cf. A218481, A294466, A281425, A095051.

Sequence in context: A004006 A089240 A057524 * A051170 A011795 A265252

Adjacent sequences: A293464 A293465 A293466 * A293468 A293469 A293470

Keyword

sign

Author

Vaclav Kotesovec, Oct 09 2017

Status

approved