login
A248966
Decimal expansion of area bounded by x = 1, y = Pi/x, and y = sin(Pi/x).
4
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, 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, 9, 9, 2, 6, 3, 2, 3, 1, 8, 1, 1, 0, 3, 2, 6, 1, 9, 4
OFFSET
1,1
LINKS
EXAMPLE
area = 2.0366242672406191211213948107665304350...
MAPLE
evalf(int(Pi/x-sin(Pi/x), x = 1..infinity), 120); # Vaclav Kotesovec, Oct 20 2014
MATHEMATICA
v = Integrate[Pi/x - Sin[Pi/x], {x, 1, Infinity}]
N[v, 1000]
s = RealDigits[N[v, 1000]][[1]] (* A248966 *)
Plot[{Pi/x, Sin[Pi/x]}, {x, 1, 2*Pi}]
CROSSREFS
KEYWORD
nonn,easy,cons
AUTHOR
Clark Kimberling, Oct 18 2014
STATUS
approved