login
Nearest integer to tan n.
2

%I #26 Oct 28 2023 12:03:11

%S 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,

%T 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,

%U -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

%N Nearest integer to tan n.

%C "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

%H N. J. A. Sloane, <a href="/A000209/b000209.txt">Table of n, a(n) for n = 0..20000</a> (first 1000 terms from T. D. Noe)

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

%t Round[Tan[Range[0,90]]] (* _Harvey P. Dale_, Aug 26 2013 *)

%K sign

%O 0,2

%A _N. J. A. Sloane_