|
%I #30 Mar 21 2024 16:22:35
%S 1,0,8,6,4,3,4,8,1,1,2,1,3,3,0,8,0,1,4,5,7,5,3,1,6,1,2,1,5,1,0,2,2,3,
%T 4,5,7,0,7,0,2,0,5,7,0,7,2,4,5,2,1,8,8,8,5,9,2,0,7,9,0,3,1,5,9,8,1,8,
%U 5,6,7,3,2,2,6,7,1,0,9,7,9,5,9,6,0,5,6,1,6,1,8,4,8,9,6,7,9,7,6,4,0,3,7,4,1
%N Decimal expansion of Pi^(1/4)/Gamma(3/4).
%C Entry 34 a of chapter 11 of Ramanujan's second notebook. Entry 34 b is A085565.
%H G. C. Greubel, <a href="/A175573/b175573.txt">Table of n, a(n) for n = 1..5000</a>
%H Bruce C. Berndt, <a href="http://dx.doi.org/10.1112/blms/15.4.273">Chapter 11 of Ramanujan's second notebook</a>, Bull. Lond. Math. Soc., Vol. 15, No. 4 (1983), 273-320.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Theta_function#Explicit_values">Theta function</a>.
%F Equals A092040 / A068465.
%F Equals Sum_{n=-oo..oo} exp(-Pi*n^2), or also EllipticTheta(3, 0, exp(-Pi)). - _Jean-François Alcover_, Jul 04 2013
%F Equals sqrt(A175574). - _Amiram Eldar_, Jul 04 2023
%F Equals Gamma(1/4)/(sqrt(2)*Pi^(3/4)). - _Vaclav Kotesovec_, Jul 04 2023
%F Equals Product_{k>=1} tanh((1/2 + i/2)*Pi*k), i=sqrt(-1). - __Antonio Graciá Llorente_, Mar 20 2024
%e 1.0864348112133080145753161...
%p Pi^(1/4)/GAMMA(3/4) ; evalf(%) ;
%t RealDigits[ Pi^(1/4)/Gamma[3/4], 10, 105][[1]] (* _Jean-François Alcover_, Jul 04 2013 *)
%o (PARI) Pi^(1/4)/gamma(3/4) \\ _G. C. Greubel_, Nov 05 2017
%o (PARI) 2*suminf(k=0,exp(-Pi)^(k^2))-1 \\ _Hugo Pfoertner_, Sep 17 2018
%o (Magma) C<i> := ComplexField(); [(Pi(C))^(1/4)/Gamma(3/4)]; // _G. C. Greubel_, Nov 05 2017
%Y Cf. A175574, A247217, A273081, A273082, A273083, A273084.
%K cons,easy,nonn
%O 1,3
%A _R. J. Mathar_, Jul 15 2010
|
