A057213 - OEIS

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

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

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