A118326 Engel expansion of tanh(1).

2, 2, 22, 50, 70, 29091, 49606, 174594, 260086, 1395138, 8755202, 13452935, 34664211, 89502392, 490611832, 1152519711, 2034899286, 2281723269, 3511022987, 12377674446, 17495576384, 21346545848, 115293211710

Offset

1,1

Links

Simon Plouffe, Table of n, a(n) for n = 1..340

Eric Weisstein's World of Mathematics, Engel Expansion

Index entries for sequences related to Engel expansions

Mathematica

EngelExp[A_, n_]:=Join[Array[1&, Floor[A]], First@Transpose@NestList[{Ceiling[1/Expand[ #[[1]]#[[2]]-1]], Expand[ #[[1]]#[[2]]-1]}&, {Ceiling[1/(A-Floor[A])], A-Floor[A]}, n-1]]; EngelExp[N[Tanh[1], 7! ], 50] (* Vladimir Joseph Stephan Orlovsky, Jun 08 2009 *)

Crossrefs

Sequence in context: A036110 A143807 A118454 * A212847 A087405 A357244

Adjacent sequences: A118323 A118324 A118325 * A118327 A118328 A118329

Keyword

nonn

Author

Eric W. Weisstein, Apr 23 2006

Status

approved