OFFSET
1,2
COMMENTS
a(n) is the least positive integer for which there is a rational number H with denominator k for which n < tan(H) < n+1.
MATHEMATICA
Table[k=1; While[Floor[k*ArcTan[n+1]]<=k*ArcTan[n], k++]; k, {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 27 2010
STATUS
approved