login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Decimal expansion of the solution s of s/c = 4, where s = arclength and c = chord length on the unit circle.
3

%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