OFFSET
1,1
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 8.11 Beam detection constants, p. 516.
FORMULA
EXAMPLE
4.8189264563455728933224260948918871915145154618345334...
MATHEMATICA
x1 = Root[x^10 + 65*x^9 - 2139*x^8 + 20476*x^7 - 78054*x^6 + 126214*x^5 - 78054*x^4 + 20476*x^3 - 2139*x^2 + 65*x + 1, x, 4]; theta1 = 4*ArcTan[Sqrt[x1]]; theta2 = 2*ArcSin[2*Cos[theta1]]; L = 2*Pi - 2*theta1 - theta2 + 2*Tan[theta1/2] + Sec[theta2/2] - Cos[theta2/2] + Tan[theta1/2]*Sin[theta2/2]; RealDigits[L, 10, 103] // First
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Oct 06 2014
STATUS
approved