A057213 Second term of continued fraction for exp(n).

1, 2, 11, 1, 2, 2, 1, 1, 11, 2, 7, 1, 2, 3, 2, 1, 1, 7, 1, 2, 2, 7, 4, 1, 2, 1, 1, 2, 23, 2, 2, 1, 15, 1, 1, 4, 3, 4, 1, 2, 4, 2, 2, 1, 28, 7, 3, 2, 10, 2, 6, 1, 1, 2, 1, 6, 1, 1, 3, 3, 9, 26, 3, 1, 2, 16, 2, 2, 1, 8, 1, 2, 1, 1, 69, 1, 1, 2, 2, 1, 5, 3, 1, 2, 2, 1, 1, 1, 1, 1, 68, 1, 1, 1, 1, 1, 2

Offset

1,2

Links

Eric M. Schmidt, Table of n, a(n) for n = 1..10000

Formula

floor(1/(exp(n)-floor(exp(n))))

Mathematica

Table[ContinuedFraction[Exp[n], 3][[2]], {n, 100}] (* Harvey P. Dale, Nov 15 2014 *)

Prog

(PARI) default(realprecision, 10000);
for(n=1, 10000, print(n, " ", contfrac(exp(n))[2]))
\\ Eric M. Schmidt, Mar 05 2014

Crossrefs

Cf. A138324.

Sequence in context: A201145 A053994 A348942 * A326042 A350035 A353877

Adjacent sequences: A057210 A057211 A057212 * A057214 A057215 A057216

Keyword

easy,nonn

Author

Leroy Quet, Sep 29 2000

Status

approved