%I M1900 N0748 #31 May 19 2019 11:18:57
%S 2,8,75,8949,119646723,15849841722437093,
%T 708657580163382065836292133774995,
%U 529026553215766321676623343348414600292754204772300344704877695232
%N Continued cotangent for e.
%D D. H. Lehmer, A cotangent analogue of continued fractions, Duke Math. J., 4 (1935), 323-340.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Harry J. Smith, <a href="/A002668/b002668.txt">Table of n, a(n) for n = 1..11</a>
%H D. H. Lehmer, <a href="/A002065/a002065_1.pdf">A cotangent analogue of continued fractions</a>, Duke Math. J., 4 (1935), 323-340. [Annotated scanned copy]
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LehmerCotangentExpansion.html">Lehmer Cotangent Expansion</a>
%t b[1] = E; b[n_] := b[n] = (b[n-1]*Floor[b[n-1]]+1) / (b[n-1]-Floor[b[n-1]]); a[n_] := Floor[b[n]]; Table[a[n], {n, 1, 8}] (* _Jean-François Alcover_, Jan 17 2012, after PARI *)
%o (PARI) { default(realprecision, 10000); bn=vector(11); bn[1]=exp(1); for(n=2, 11, bn[n]=(bn[n-1]*floor(bn[n-1]) + 1)/(bn[n-1] - floor(bn[n-1]))); for (n=1, 11, write("b002668.txt", n, " ", floor(bn[n]))); } \\ _Harry J. Smith_, May 04 2009
%K nonn,easy,nice
%O 1,1
%A _N. J. A. Sloane_
%E More terms from _Jeffrey Shallit_