Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Mar 06 2021 02:06:31
%S 4,9,4,9,1,5,3,5,7,4,7,3,9,6,5,8,0,2,5,1,2,8,8,6,0,2,2,0,6,6,3,0,7,4,
%T 7,1,3,3,0,2,0,9,5,0,3,7,7,9,7,4,0,0,1,3,7,0,7,1,0,5,9,7,9,7,8,9,3,9,
%U 6,3,7,0,2,2,7,6,7,7,0,4,9,6,6,6,5,8
%N Decimal expansion of the solution s of s/c = 4, where s = arclength and c = chord length on the unit circle.
%C See A336043 for a guide to related sequences.
%F s = 4.949153574739658025128860220663074713302095037797400...
%F 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, A336052.
%K nonn,cons
%O 1,1
%A _Clark Kimberling_, Jul 10 2020