%I #13 Sep 08 2022 08:45:11

%S 9,8,3,9,7,4,8,6,2,0,7,1,8,7,5,4,1,5,8,7,7,6,7,3,2,5,8,8,7,5,0,0,9,9,

%T 3,1,1,5,0,7,8,7,4,8,1,0,0,1,7,1,1,3,9,6,8,1,8,8,0,0,1,5,8,7,2,4,8,3,

%U 5,9,2,6,8,7,2,6,6,2,7,8,8,6,8,7,8,6,8,5,2,9,3,0,5,6,2,3,5,6,1,7,7,5

%N Decimal expansion of (280*(3 - sqrt(3)))/(840 - 280*sqrt(3) + 4*sqrt(5) - sqrt(10)).

%C Traveling salesman constant phi.

%H G. C. Greubel, <a href="/A086306/b086306.txt">Table of n, a(n) for n = 0..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/TravelingSalesmanConstants.html">Traveling Salesman Constants</a>

%e 0.983974862071875415877673258875009931150787481....

%t RealDigits[(280*(3-Sqrt[3]))/(840-280*Sqrt[3]+4*Sqrt[5]-Sqrt[10]), 10, 100][[1]] (* _G. C. Greubel_, Mar 10 2018 *)

%o (PARI) default(realprecision, 100); (280*(3-sqrt(3)))/(840-280*sqrt(3) +4*sqrt(5)-sqrt(10)) \\ _G. C. Greubel_, Mar 10 2018

%o (Magma) R:= RealField(100); SetDefaultRealField(R); (280*(3-Sqrt(3)))/(840 -280*Sqrt(3)+4*Sqrt(5)-Sqrt(10)); // _G. C. Greubel_, Mar 10 2018

%K nonn,cons

%O 0,1

%A _Eric W. Weisstein_, Jul 15 2003