OFFSET
1,3
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge University Press, 2003, Section 8.11 Beam detection constants, p. 516.
FORMULA
theta_2 = 2*arcsin(2*cos(theta_1)), where theta_1 is A248413.
EXAMPLE
1.191047828585207312187677943086846350804683952653690931...
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]]; RealDigits[theta2, 10, 103] // First
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Jean-François Alcover, Oct 06 2014
STATUS
approved