|
%I #19 Sep 08 2022 08:45:13
%S 1,3,2,4,9,7,9,0,6,2,7,1,4,0,8,7,4,6,7,9,8,5,2,6,7,1,2,4,7,3,6,3,2,9,
%T 0,2,6,9,2,8,9,0,1,4,0,3,6,5,1,9,1,8,1,4,7,5,9,5,1,7,8,9,3,1,3,7,6,5,
%U 8,9,7,5,1,2,9,6,0,8,0,9,3,5,2,0,4,1,1,5,2,4,5,0,0,0,0,3,7,6,9,0,4,1
%N Decimal expansion of A064582*sqrt(3)/2, i.e., imaginary part of omega_1 in the equianharmonic case.
%H G. C. Greubel, <a href="/A094962/b094962.txt">Table of n, a(n) for n = 1..5000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Omega-2Constant.html">Omega-2 Constant</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/EquianharmonicCase.html">Equianharmonic Case</a>
%F Equals (sqrt(3)*gamma(1/3)^3)/(8*Pi).
%e 1.32497906...
%t RealDigits[Sqrt[3]*Gamma[1/3]^3/(8*Pi), 10, 50][[1]] (* _G. C. Greubel_, Nov 05 2017 *)
%o (PARI) default(realprecision,1000); (sqrt(3)*gamma(1/3)^3)/(8*Pi) \\ _Anders Hellström_, Aug 15 2015
%o (Magma) C<i> := ComplexField(); [Sqrt(3)*Gamma(1/3)^3/(8*Pi(C))]; // _G. C. Greubel_, Nov 05 2017
%Y Cf. A064582, A094961.
%K nonn,cons
%O 1,2
%A _Eric W. Weisstein_, May 26 2004
|
