A000319 a(n) = floor(b(n)), where b(n) = tan(b(n-1)), b(0)=1.
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, 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, -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
Offset: 0
Keywords
Examples
From _José María Grau Ribas_, Apr 13 2010: (Start) For n=2, tan(tan(1)) = 74.68... (A085665), so a(2)=74. For n=3, tan(tan(tan(1))) = -0.8635... (A085666), so a(3)=-1. (End)
Links
- T. D. Noe, Table of n, a(n) for n = 0..10000
- Tim Peters, CSV table of a(n) for n = 0..7366317 in "value,count" format
Crossrefs
Programs
-
Mathematica
Floor[Table[Nest[Tan, 1, n], {n, 1, 200}]] (* José María Grau Ribas, Apr 13 2010 *)
Comments