%I #8 Mar 06 2021 02:04:48
%S 1,2,3,7,2,8,8,3,9,3,6,8,4,9,1,4,5,0,6,2,8,2,2,1,5,0,5,5,1,6,5,7,6,8,
%T 6,7,8,3,2,5,5,2,3,7,5,9,4,4,9,3,5,0,0,3,4,2,6,7,7,6,4,9,4,9,4,7,3,4,
%U 9,0,9,2,5,5,6,9,1,9,2,6,2,4,1,6,6,4
%N Decimal expansion of the solution c of s/c = 4, where s = arclength and c = chord length on the unit circle.
%C See A336043 for a guide to related sequences.
%e s = 4.949153574739658025128860220663074713302095037797400...
%e c = 1.237288393684914506282215055165768678325523759449350...
%t t = t /.FindRoot[t == 4 Sqrt[2 - 2 Cos[t]], {t, 4}, WorkingPrecision -> 200]
%t c = t/4
%t RealDigits[t][[1]] (* A336051 *)
%t RealDigits[c][[1]] (* A336052 *)
%Y Cf. A336043, A336051.
%K nonn,cons
%O 1,2
%A _Clark Kimberling_, Jul 10 2020
|