|
%I #3 Sep 24 2017 09:04:30
%S 1,0,0,0,0,0,3,4,8,7,3,5,4,5,1,7,8,5,0,5,2,8,2,2,0,5,5,2,4,5,5,7,9,1,
%T 2,0,9,8,2,2,4,0,2,7,4,2,2,8,6,0,1,8,8,6,6,8,6,0,7,5,6,7,1,1,5,2,8,7,
%U 7,9,7,8,8,9,2,6,0,6,2,6,7,1,0,8,4,8,3,6,0,2,2,4,5,5,0,3,0,3,0,2,7,8,3,5,7
%N Decimal expansion of Product_{k>=1} (1 + exp(-4*Pi*k)).
%F Equals (sqrt(2)-1)^(1/4) * exp(Pi/6) / 2^(7/16).
%F Equals A259151 / A259150.
%e 1.000003487354517850528220552455791209822402742286018866860756711528779...
%t RealDigits[(Sqrt[2]-1)^(1/4) * E^(Pi/6) / 2^(7/16), 10, 120][[1]]
%t RealDigits[QPochhammer[-1, E^(-4*Pi)]/2, 10, 120][[1]]
%Y Cf. A259150, A292826.
%Y Cf. A292819, A292820, A292821.
%K nonn,cons
%O 1,7
%A _Vaclav Kotesovec_, Sep 24 2017
|
