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

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

Offset

0,1

Links

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

Example

x=-0.242962685095034086912611580795123073012...

Mathematica

Plot[{1/x, .55*Sin[x]}, {x, 0, Pi}]
xt = x /. FindRoot[x + Tan[x] == 0, {x, 1.5, 2.5}, WorkingPrecision -> 100]
RealDigits[xt] (* A196504 *)
c = N[1/(xt*Sin[xt]), 100]
RealDigits[c]  (* A196758 *)
slope = -1/xt^2
RealDigits[slope]  (* A196759 *)

Crossrefs

Cf. A196758.

Sequence in context: A232565 A058942 A365638 * A303165 A188813 A324958

Adjacent sequences: A196756 A196757 A196758 * A196760 A196761 A196762

Keyword

nonn,cons

Author

Clark Kimberling, Oct 06 2011

Status

approved