A196620 - OEIS

A196620

Decimal expansion of the slope (negative) of the tangent line at the point of tangency of the curves y=cos(x) and y=(1/x)-c, where c is given by A196619.

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

(list; constant; graph; refs; listen; history; text; internal format)

OFFSET

0,1

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..10000

EXAMPLE

x = -0.87634620111837419112349411392283024821317...

MATHEMATICA

Plot[{1/x - .4544, Cos[x]}, {x, 0, 2 Pi}]

xt = x /. FindRoot[x^(-2) == Sin[x], {x, .5, .8}, WorkingPrecision -> 100]

RealDigits[xt] (* A196617 *)

Cos[xt]