|
%I #12 Oct 12 2018 02:04:37
%S 1,1,2,2,3,5,6,8,11,15,18,24,29,37,48,58,71,89,108,132,163,195,236,
%T 284,341,405,486,578,683,809,954,1120,1319,1543,1806,2112,2457,2857,
%U 3320,3850,4451,5149,5936,6840,7879,9047,10376,11900,13613,15561,17770,20266
%N Expansion of ((sqrt(2);x)_inf + (-sqrt(2);x)_inf - 2)/4, where(a;q)_inf is the q-Pochhammer symbol.
%C The q-Pochhammer symbol (a;q)_inf = Product_{k>=0} (1 - a*q^k).
%C a(n) agrees with A118399(n) for n < 15.
%H G. C. Greubel, <a href="/A278298/b278298.txt">Table of n, a(n) for n = 1..5000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/q-PochhammerSymbol.html">q-Pochhammer Symbol</a>.
%F a(n) ~ sqrt(1 + sqrt(2)) * c^(1/4) * exp(2*sqrt(c*n)) / (8*sqrt(Pi)*n^(3/4)), where c = Pi^2/6 + log(2)^2/8 + polylog(2, -1/sqrt(2)) = 1.0944511783086747574574059... - _Vaclav Kotesovec_, Oct 11 2018
%t ((QPochhammer[Sqrt[2], x] + QPochhammer[-Sqrt[2], x] - 2)/4 + O[x]^53)[[3]]
%Y Cf. A118399, A278296.
%K nonn
%O 1,3
%A _Vladimir Reshetnikov_, Nov 17 2016
|
