%I #17 Jan 14 2021 21:18:19
%S 1,1,74,-1,-2,-3,0,1,30,-2,-2,29,1,4,-6,0,1,2,-1,-1,-1,-1,-2,-9,0,0,1,
%T 2,-2,-35,-1,-1,-1,-1,-1,-1,-1,-2,-3,0,0,1,5,-2,-2,3,1,1,-4,-1,-1,-1,
%U -1,-1,-1,-1,-1,-2,-3,1,2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-3,0,1,2,-1,-2,-21,-7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
%N a(n) = floor(b(n)), where b(n) = tan(b(n-1)), b(0)=1.
%C Using 3000-digit precision, interval arithmetic provides an efficient method of computing over 2000000 terms of this sequence. The iteration is stopped when an interval contains an integer. So far, no term equals 319. - _T. D. Noe_, Mar 07 2008
%H T. D. Noe, <a href="/A000319/b000319.txt">Table of n, a(n) for n = 0..10000</a>
%e From _José María Grau Ribas_, Apr 13 2010: (Start)
%e tan(tan(tan(1))) = -0.8635..., so a(3)=-1;
%e tan(tan(1)) = 74.68..., so a(2)=74. (End)
%t Floor[Table[Nest[Tan, 1, n], {n, 1, 200}]] (* _José María Grau Ribas_, Apr 13 2010 *)
%K sign
%O 0,3
%A _N. J. A. Sloane_