OFFSET
0,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..300
EXAMPLE
area = 0.21307590546539230747963807682...
MAPLE
evalf(int(tan(1/x)-1/x, x = 1..infinity), 120); # Vaclav Kotesovec, Oct 20 2014
MATHEMATICA
v = Integrate[Tan[1/x] - 1/x, {x, 1, Infinity}]
N[v, 100]
s = RealDigits[N[v, 200]][[1]] (* A248967 *)
Plot[{Tan[1/x], 1/x}, {x, 1, 4}]
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Oct 18 2014
STATUS
approved