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

Author

Clark Kimberling, Oct 06 2011

Keywords

• nonn
• cons

Examples

			x=-0.44212059295499839133561624405047613618690708...
		

Crossrefs

Cf. A196765.

Programs

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 *)