%I #13 Mar 06 2021 02:07:00

%S 2,9,4,3,5,8,6,3,2,2,7,3,8,5,3,5,4,0,0,7,6,0,0,6,2,8,4,6,4,9,3,1,6,3,

%T 4,8,8,7,5,0,1,4,0,2,3,8,0,9,6,3,9,6,3,2,6,6,3,3,6,1,5,1,4,2,9,0,8,0,

%U 9,7,5,0,3,7,1,5,0,6,3,6,6,6,5,7,8,6

%N Decimal expansion of the area bounded by x = 1, y = sin(1/x), and y = tan(1/x).

%H Clark Kimberling, <a href="/A248968/b248968.txt">Table of n, a(n) for n = 0..300</a>

%F Let u,v,w be the constants at A248965, A248967, and A248968, respectively. Then w = u + v.

%e area = 0.294358632273853540076006284649...

%p evalf(int(tan(1/x)-sin(1/x), x = 1..infinity), 120); # _Vaclav Kotesovec_, Oct 20 2014

%t v = Integrate[Tan[1/x] - Sin[1/x], {x, 1, Infinity}]

%t N[v, 100]

%t s = RealDigits[N[v, 200]][[1]] (* A248968 *)

%t Plot[{Tan[1/x], Sin[1/x]}, {x, 1, Pi}]

%Y Cf. A248965, A248966, A248967.

%K nonn,easy,cons

%O 0,1

%A _Clark Kimberling_, Oct 18 2014