|
%I #7 Jul 25 2014 13:38:15
%S 8,2,4,7,8,3,0,3,0,9,1,4,6,2,2,4,9,6,5,7,1,9,3,7,6,6,0,1,9,9,3,2,8,3,
%T 1,8,6,9,3,7,8,9,6,1,3,3,3,0,8,7,2,0,6,7,1,0,8,4,6,4,7,5,8,2,7,0,7,5,
%U 1,9,3,5,0,7,2,8,5,5,4,4,2,7,8,9,7,1,7,8,9,4,5,7,1,4,5,9,1,3,8,9,9,1,4,5
%N Decimal expansion of sigma_3, a Turán's Power Sum Constant.
%D Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 3.16 Turán's Power Sum Constants, p. 246.
%F Smallest positive root of the minimal polynomial given in the Mathematica code.
%e 0.82478303091462249657193766019932831869378961333087206710846475827...
%t sigma3 = Root[x^30 - 81*x^28 + 2613*x^26 - 43629*x^24 + 417429*x^22 - 2450985*x^20 + 9516137*x^18 - 26203659*x^16 + 53016480 x^14 - 83714418*x^12 + 112601340*x^10 - 140002992*x^8 + 156204288*x^6 - 124361568*x^4 + 55427328*x^2 - 10077696, x, 6]; RealDigits[sigma3, 10, 104] // First
%Y Cf. A094883.
%K nonn,cons
%O 0,1
%A _Jean-François Alcover_, Jul 25 2014
|
