A248966 Decimal expansion of area bounded by x = 1, y = Pi/x, and y = sin(Pi/x).

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

Clark Kimberling, Table of n, a(n) for n = 1..1000

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

Cf. A248965, A248967, A248968.

Sequence in context: A071089 A144090 A330674 * A021495 A332356 A309655

Adjacent sequences: A248963 A248964 A248965 * A248967 A248968 A248969

Keyword

nonn,easy,cons

Author

Clark Kimberling, Oct 18 2014

Status

approved