%I A118326
%S A118326 2,2,22,50,70,29091,49606,174594,260086,1395138,8755202,13452935,
%T A118326 34664211,89502392,490611832,1152519711,2034899286,2281723269,
%U A118326 3511022987,12377674446,17495576384,21346545848,115293211710
%N A118326 Engel expansion of tanh(1).
%H A118326 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               EngelExpansion.html">Engel Expansion</a>
%t A118326 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] [From Vladimir Orlovsky 
               (4vladimir(AT)gmail.com), Jun 08 2009]
%Y A118326 Sequence in context: A036110 A143807 A118454 this_sequence A087405 A001012 
               A040082
%Y A118326 Adjacent sequences: A118323 A118324 A118325 this_sequence A118327 A118328 
               A118329
%K A118326 nonn
%O A118326 1,1
%A A118326 Eric Weisstein (eric(AT)weisstein.com), Apr 23, 2006