# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a292904
Showing 1-1 of 1
%I A292904 #12 Oct 27 2023 13:10:07
%S A292904 1,0,0,0,0,0,0,1,5,0,7,0,1,7,5,0,2,5,0,0,2,3,9,8,9,4,9,3,8,6,9,8,7,1,
%T A292904 4,6,7,9,7,3,7,6,1,0,0,6,4,3,0,5,0,7,4,0,5,6,9,0,1,9,9,9,8,8,5,2,0,8,
%U A292904 8,7,1,3,4,4,2,6,9,4,9,7,1,7,6,1,8,7,2,8,7,4,6,7,3,2,5,8,5,1,0,0,2,8,5,0,4
%N A292904 Decimal expansion of Product_{k>=1} (1 + exp(-5*Pi*k)).
%H A292904 Eric Weisstein's World of Mathematics, Dedekind Eta Function
%H A292904 Eric Weisstein's World of Mathematics, q-Pochhammer Symbol
%H A292904 Wikipedia, Dedekind eta function
%H A292904 Wikipedia, Euler function
%H A292904 Index entries for transcendental numbers
%F A292904 Root r of the equation 2^(3/4)*r^6 + 2^(17/8)*exp(5*Pi/24)*r^5 + 2^(5/8)*exp(25*Pi/24)*r - exp(5*Pi/4) = 0.
%F A292904 Equals exp(5*Pi/24) * sqrt(2 + sqrt(5) - sqrt((15 + 7*sqrt(5))/2))/2^(1/8). - _Vaclav Kotesovec_, May 13 2023
%e A292904 1.000000150701750250023989493869871467973761006430507405690199988520887...
%t A292904 RealDigits[r/.FindRoot[2^(3/4)*r^6 + 2^(17/8)*E^(5*Pi/24)*r^5 + 2^(5/8)*E^(25*Pi/24)*r - E^(5*Pi/4) == 0, {r, 1}, WorkingPrecision -> 120], 10, 120][[1]]
%t A292904 RealDigits[QPochhammer[-1, E^(-5*Pi)]/2, 10, 120][[1]]
%t A292904 RealDigits[Exp[5*Pi/24]*Sqrt[2 + Sqrt[5] - Sqrt[(15 + 7*Sqrt[5])/2]]/2^(1/8), 10, 120][[1]] (* _Vaclav Kotesovec_, May 13 2023 *)
%o A292904 (PARI) polrootsreal(2^(3/4)*'x^6 + 2^(17/8)*exp(5*Pi/24)*'x^5 + 2^(5/8)*exp(25*Pi/24)*'x - exp(5*Pi/4))[2] \\ _Charles R Greathouse IV_, Mar 04 2018
%Y A292904 Cf. A292819, A292820, A292821, A292887, A292822, A292905.
%K A292904 nonn,cons
%O A292904 1,9
%A A292904 _Vaclav Kotesovec_, Sep 26 2017
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE