This site is supported by donations to The OEIS Foundation.

 Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A248965 Decimal expansion for area bounded by x = 1, y = 1/x, and y = sin(1/x). 4

%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/x-sin(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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 13 23:26 EST 2018. Contains 318087 sequences. (Running on oeis4.)