login
A248967
Decimal expansion of the area bounded by x = 1, y = 1/x, and y = tan(1/x).
4
2, 1, 3, 0, 7, 5, 9, 0, 5, 4, 6, 5, 3, 9, 2, 3, 0, 7, 4, 7, 9, 6, 3, 8, 0, 7, 6, 8, 2, 5, 7, 6, 5, 6, 8, 8, 2, 0, 7, 8, 6, 9, 6, 5, 9, 6, 5, 7, 0, 7, 6, 8, 6, 2, 9, 8, 6, 1, 6, 1, 1, 1, 1, 8, 5, 0, 1, 6, 1, 9, 4, 9, 2, 2, 7, 6, 5, 8, 0, 7, 9, 6, 6, 9, 1, 2
OFFSET
0,1
LINKS
FORMULA
Let u,v,w be the constants at A248965, A248967, and A248968, respectively. Then v = w - u.
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
nonn,easy,cons
AUTHOR
Clark Kimberling, Oct 18 2014
STATUS
approved