%I #15 Jun 02 2018 10:07:30
%S 4,1,1,2,4,8,4,7,9,1,7,7,9,5,4,7,7,3,4,4,4,0,2,5,6,6,2,4,3,5,5,7,2,4,
%T 3,6,9,7,2,0,4,0,5,0,3,6,3,3,6,0,1,1,0,5,5,7,0,2,1,1,0,1,7,8,3,6,4,4,
%U 2,9,1,3,4,5,3,3,8,1,4,4,7,1,5,0,7,7,2,0,9,5,0,6,3,3,3,9,2,4,1,8,5,6,7,3,1
%N Decimal expansion of the (negated) value of q at which the q-Pochhammer symbol reaches a maximum along [ -1, 1].
%H G. C. Greubel, <a href="/A143441/b143441.txt">Table of n, a(n) for n = 0..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/q-PochhammerSymbol.html">q-Pochhammer Symbol</a>
%F Equals -1/lim_{n->infinity} A002039(n)^(1/n). - _Vaclav Kotesovec_, Jun 02 2018
%e -0.41124847917795477344...
%t q0 = q /. FindRoot[ QPochhammer'[q] == 0, {q, -1/2}, WorkingPrecision -> 300]; RealDigits[q0, 10, 105] // First (* _Jean-François Alcover_, Dec 05 2013 *)
%Y Cf. A143440, A242168, A258232, A002039.
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Aug 14 2008