OFFSET
0,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
EXAMPLE
area = 0.0812827268084612325963682078235506606...
MAPLE
evalf(int(1/x-sin(1/x), x = 1..infinity), 120); # Vaclav Kotesovec, Oct 20 2014
MATHEMATICA
v = Integrate[1/x - Sin[1/x], {x, 1, Infinity}]
N[v, 1000]
s = Join[{0}, RealDigits[N[v, 1000]][[1]] ](* A248965 *)
Plot[{1/x, Sin[1/x]}, {x, 1, 4}]
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Oct 18 2014
STATUS
approved