|
%I #16 Feb 08 2021 14:05:12
%S -1,-1,-1,0,0,1,2,3,4,6,6,8,9,10,10,11,10,10,8,6,2,0,-7,-12,-20,-28,
%T -39,-48,-62,-74,-90,-104,-122,-136,-156,-171,-190,-204,-222,-232,
%U -247,-252,-260,-258,-258,-244,-232,-204,-176,-130,-84,-15,54,148,244,368
%N G.f.: Im((i; x)_inf), where (a; q)_inf is the q-Pochhammer symbol, i = sqrt(-1).
%C The q-Pochhammer symbol (a; q)_inf = Product_{k>=0} (1 - a*q^k).
%H Seiichi Manyama, <a href="/A278400/b278400.txt">Table of n, a(n) for n = 0..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/q-PochhammerSymbol.html">q-Pochhammer Symbol</a>.
%F (i; x)_inf is the g.f. for A278399(n) + i*a(n).
%F G.f.: Sum_{n >= 0} (-1)^(n+1)*x^(n*(2*n+1))/Product_{k = 1..2*n+1} 1 - x^k. - _Peter Bala_, Feb 06 2021
%p with(gfun): series(add((-1)^(n+1)*x^(n*(2*n+1))/mul(1 - x^k, k = 1..2*n+1), n = 0..6), x, 100): seriestolist(%); ~ _Peter Bala_, Feb 06 2021
%t Im[(QPochhammer[I, x] + O[x]^60)[[3]]]
%Y Cf. A278399, A278401, A278402, A278420, A292042, A292043.
%K sign,easy
%O 0,7
%A _Vladimir Reshetnikov_, Nov 20 2016
|
