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

Author

Leroy Quet, Sep 29 2000

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A138324.

Programs

Mathematica

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

PARI

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

Formula

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