%I
%S 0,8,1,2,8,2,7,2,6,8,0,8,4,6,1,2,3,2,5,9,6,3,6,8,2,0,7,8,2,3,5,5,0,6,
%T 6,0,6,6,7,1,4,4,3,6,4,1,5,2,5,6,2,7,6,9,6,7,7,2,0,0,4,0,2,4,4,0,6,4,
%U 7,8,0,1,1,4,3,8,4,8,2,8,6,9,8,8,7,3
%N Decimal expansion for area bounded by x = 1, y = 1/x, and y = sin(1/x).
%H Clark Kimberling, <a href="/A248965/b248965.txt">Table of n, a(n) for n = 0..1000</a>
%F Let u,v,w be the constants at A248965, A248967, and A248968, respectively. Then u = w  v.
%e area = 0.0812827268084612325963682078235506606...
%p evalf(int(1/xsin(1/x), x = 1..infinity), 120); # _Vaclav Kotesovec_, Oct 20 2014
%t v = Integrate[1/x  Sin[1/x], {x, 1, Infinity}]
%t N[v, 1000]
%t s = Join[{0}, RealDigits[N[v, 1000]][[1]] ](* A248965 *)
%t Plot[{1/x, Sin[1/x]}, {x, 1, 4}]
%Y Cf. A248966, A248967, A248968.
%K nonn,easy,cons
%O 0,2
%A _Clark Kimberling_, Oct 18 2014
