|
| |
|
|
A000319
|
|
a(n) = floor(b(n)), where b(n)=tan(b(n-1)), b(0)=1.
|
|
4
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
COMMENTS
|
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
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=0..10000
|
|
|
EXAMPLE
|
Tan[Tan[Tan[1]]]=-0.8635... ==> a(3)=-1 Tan[Tan[1]]=74.68.. ==> a(2)=74 - José María Grau Ribas, Apr 13 2010
|
|
|
MATHEMATICA
|
Floor[Table[Nest[Tan, 1, n], {n, 1, 200}]] - José María Grau Ribas, Apr 13 2010
|
|
|
CROSSREFS
|
Sequence in context: A188957 A159438 A076848 * A033394 A114969 A104421
Adjacent sequences: A000316 A000317 A000318 * A000320 A000321 A000322
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
N. J. A. Sloane.
|
|
|
STATUS
|
approved
|
| |
|
|
