|
%I #10 Mar 06 2021 01:58:04
%S 2,0,3,6,6,2,4,2,6,7,2,4,0,6,1,9,1,2,1,1,2,1,3,9,4,8,1,0,7,6,6,5,3,0,
%T 4,3,5,0,2,7,2,5,2,1,3,5,6,3,0,3,4,0,4,6,7,8,0,7,8,5,3,7,4,3,9,8,1,0,
%U 9,9,2,6,3,2,3,1,8,1,1,0,3,2,6,1,9,4
%N Decimal expansion of area bounded by x = 1, y = Pi/x, and y = sin(Pi/x).
%H Clark Kimberling, <a href="/A248966/b248966.txt">Table of n, a(n) for n = 1..1000</a>
%e area = 2.0366242672406191211213948107665304350...
%p evalf(int(Pi/x-sin(Pi/x), x = 1..infinity), 120); # _Vaclav Kotesovec_, Oct 20 2014
%t v = Integrate[Pi/x - Sin[Pi/x], {x, 1, Infinity}]
%t N[v, 1000]
%t s = RealDigits[N[v, 1000]][[1]] (* A248966 *)
%t Plot[{Pi/x, Sin[Pi/x]}, {x, 1, 2*Pi}]
%Y Cf. A248965, A248967, A248968.
%K nonn,easy,cons
%O 1,1
%A _Clark Kimberling_, Oct 18 2014
|
