|
%I #27 May 08 2018 11:41:24
%S 1,0,1,-1,2,-4,9,-21,49,-112,249,-539,1143,-2396,5013,-10550,22420,
%T -48086,103703,-223806,481388,-1029507,2187944,-4625058,9742223,
%U -20490753,43111808,-90840465,191773014,-405523635,858378825,-1817304609,3845492204,-8129023694,17162802918,-36191083386
%N a(n) = [q^n] (1 - q)^n / Product_{j=1..n} (1 - q^j).
%C a(n) is n-th term of the Euler transform of -n + 1, 1, 1, 1, ...
%H Vaclav Kotesovec, <a href="/A281425/b281425.txt">Table of n, a(n) for n = 0..3000</a>
%H A. M. Odlyzko, <a href="http://matwbn.icm.edu.pl/ksiazki/aa/aa49/aa4932.pdf">Differences of the partition function</a>, Acta Arithmetica 49.3 (1988): 237-254.
%H Dennis Stanton and Doron Zeilberger, <a href="https://doi.org/10.1090/S0002-9939-1989-0972238-1">The Odlyzko conjecture and O’Hara’s unimodality proof</a>, Proceedings of the American Mathematical Society 107.1 (1989): 39-42.
%F a(n) = [q^n] 1/((1 + q)*(1 + q + q^2)*...*(1 + q + ... + q^(n-1)).
%F a(n) = Sum_{j=0..n} (-1)^j * binomial(n, j) * A000041(n-j). - _Vaclav Kotesovec_, Oct 06 2017
%F a(n) ~ (-1)^n * 2^(n - 3/2) * exp(Pi*sqrt(n/12) + Pi^2/96) / (sqrt(3)*n). - _Vaclav Kotesovec_, May 07 2018
%t Table[SeriesCoefficient[(1 - q)^n / Product[(1 - q^j), {j, 1, n}], {q, 0, n}], {n, 0, 35}]
%t Table[SeriesCoefficient[(1 - q)^n QPochhammer[q^(1 + n), q]/QPochhammer[q, q], {q, 0, n}], {n, 0, 35}]
%t Table[SeriesCoefficient[1/QFactorial[n, q], {q, 0, n}], {n, 0, 35}]
%t Table[Differences[PartitionsP[Range[0, n]], n], {n, 0, 35}] // Flatten
%t Table[Sum[(-1)^j*Binomial[n, j]*PartitionsP[n-j], {j, 0, n}], {n, 0, 30}] (* _Vaclav Kotesovec_, Oct 06 2017 *)
%Y Cf. A128566, A292463, A292541, A292613.
%Y Cf. A000041, A002865, A053445, A275638, A275639, A275640, A275641, A275642, A275643, A275644.
%Y Cf. A218481, A294466, A095051.
%Y Cf. A266232, A294467, A293467, A294468.
%K sign
%O 0,5
%A _Ilya Gutkovskiy_, Oct 05 2017
|
