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