|
%I #8 Dec 20 2015 08:45:12
%S 0,0,0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,
%T 5,6,6,6,6,6,6,6,7,7,7,7,7,7,8,8,8,8,8,8,9,9,9,9,9,9,10,10,10,10,10,
%U 10,10,11,11,11,11,11,11
%N Floor[radius of the inscribed-circle of a regular n-gon with unit sides].
%H Harry J. Smith, <a href="/A067100/b067100.txt">Table of n, a(n) for n = 3..1000</a>
%F a(n) = floor((cot(Pi/n)/2)).
%e a(24) = floor(cot(Pi/24)/2) = floor(3.79787705636257522026320957021073) = 3.
%t Table[ Floor[ Cot[Pi/n]/2], {n, 3, 75} ]
%o (PARI) { for (n=3, 1000, write("b067100.txt", n, " ", floor((cotan(Pi/n)/2))) ) } \\ _Harry J. Smith_, May 19 2010
%Y Cf. A067099, A062299.
%K easy,nonn
%O 3,11
%A _Amarnath Murthy_, Jan 07 2002
%E More terms from _Robert G. Wilson v_, Jan 09 2002
|
