A000209 Nearest integer to tan n.

0, 2, -2, 0, 1, -3, 0, 1, -7, 0, 1, -226, -1, 0, 7, -1, 0, 3, -1, 0, 2, -2, 0, 2, -2, 0, 1, -3, 0, 1, -6, 0, 1, -75, -1, 0, 8, -1, 0, 4, -1, 0, 2, -1, 0, 2, -2, 0, 1, -3, 0, 1, -6, 0, 1, -45, -1, 0, 8, -1, 0, 4, -1, 0, 2, -1, 0, 2, -2, 0, 1, -3, 0, 1, -6, 0, 1, -32, -1, 0, 9, -1

Offset: 0

Author

N. J. A. Sloane

Keywords

• sign

Comments

"At lunch one day, feeling even more ebullient than usual, he [Richard Feynman] challenged the table to a competition. He bet that he could solve any problem within sixty seconds, to within ten percent accuracy, that could be stated within ten seconds. ... Under pressure, his friends found themselves unable to stump him. ... Then Paul Olum spoke up. ... He demanded the tangent of ten to the hundredth. The competition was over. ... Even Feynman could not produce that on short notice." [James Gleick, Genius, Pantheon, NY, 1992, p. 178.] - N. J. A. Sloane, Jun 25 2018

Links

• N. J. A. Sloane, Table of n, a(n) for n = 0..20000 (first 1000 terms from T. D. Noe)

Programs

Maple

Digits := 100; f := n->round(evalf(tan(n))); [ seq(f(n), n=0..100) ];

Mathematica

Round[Tan[Range[0,90]]] (* Harvey P. Dale, Aug 26 2013 *)