A196766 Decimal expansion of the slope (negative) at the point of tangency of the curves y=c/x and y=sin(x), where c is given by A196765.

4, 4, 2, 1, 2, 0, 5, 9, 2, 9, 5, 4, 9, 9, 8, 3, 9, 1, 3, 3, 5, 6, 1, 6, 2, 4, 4, 0, 5, 0, 4, 7, 6, 1, 3, 6, 1, 8, 6, 9, 0, 7, 0, 8, 6, 1, 2, 8, 6, 1, 0, 1, 5, 2, 9, 5, 8, 7, 9, 4, 3, 9, 1, 1, 9, 4, 5, 6, 6, 6, 5, 7, 9, 4, 5, 8, 7, 2, 6, 2, 5, 7, 9, 6, 8, 0, 2, 6, 6, 6, 0, 0, 1, 7, 6, 8, 9, 5, 3

Offset

0,1

Links

Table of n, a(n) for n=0..98.

Example

x=-0.44212059295499839133561624405047613618690708...

Mathematica

Plot[{Sin[x], 1/x, 1.82/x}, {x, 0, Pi}]
xt = x /. FindRoot[x + Tan[x] == 0, {x, 1.5, 2.5}, WorkingPrecision -> 100]
RealDigits[xt]   (* A196504 *)
c = N[xt*Sin[xt], 100]
RealDigits[c]    (* A196765 *)
slope = Cos[xt]
RealDigits[slope](* A196766 *)

Crossrefs

Cf. A196765.

Sequence in context: A194678 A153015 A173635 * A153163 A168455 A300153

Adjacent sequences: A196763 A196764 A196765 * A196767 A196768 A196769

Keyword

nonn,cons

Author

Clark Kimberling, Oct 06 2011

Status

approved