|
%I #35 Jan 01 2016 20:16:26
%S 1,8,3,7,4,9,5,1,7,8,1,6,5,7,0,3,3,1,5,7,4,4,0,8,8,3,9,6,2,0,7,2,7,5,
%T 8,2,4,8,9,1,3,8,5,2,3,8,4,4,4,9,9,4,0,5,8,5,0,6,5,0,8,5,7,7,4,8,9,1,
%U 4,9,2,8,2,5,3,0,5,0,1,7,3,0,3,0,6,0,1,1,9,5,1,2,1,0,7,3,0,4,8,5,9,2,9,6,7,9,7,6,3,4,0,0,2,9,7,4,9,1,6,9
%N Decimal representation of sin(Pi/17).
%D Saul Stahl, "Geometry From Euclid To Knots" Chapter 4.3, 'Regular Polygons', Courier - Dover Publications, NJ, 2009, pp. 153-154.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Constructible_polygon">Constructible polygon</a>
%F Equals 1/4 sqrt(8 - sqrt(2*(15 + sqrt(17) - sqrt(2*(17 - sqrt(17))) + sqrt(2*(34 + 6 sqrt(17) + sqrt(2*(17 - sqrt(17))) - sqrt(34*(17 - sqrt(17))) + 8*sqrt(2*(17 + sqrt(17)))))))). - _Robert G. Wilson v_, Aug 14 2014
%F The minimal polynomial is 65536x^16 - 278528x^14 + 487424x^12 - 452608x^10 + 2398360x^8 + 11424x^4 - 816x^2 + 17. - _Robert G. Wilson v_, Aug 14 2014
%e 0.18374951781657033157440883962072758248913852384449940585065085774891492825305...
%p Digits:=100: evalf(sin(Pi/17)); # _Wesley Ivan Hurt_, Aug 15 2014
%t RealDigits[ Sin[ Pi/17], 10, 111][[1]] (* _Robert G. Wilson v_, Aug 14 2014 *)
%K nonn,cons
%O 1,2
%A _Zak Seidov_, Apr 18 2014
|
