|
%I #15 Apr 24 2016 05:35:37
%S 2,2,22,50,70,29091,49606,174594,260086,1395138,8755202,13452935,
%T 34664211,89502392,490611832,1152519711,2034899286,2281723269,
%U 3511022987,12377674446,17495576384,21346545848,115293211710
%N Engel expansion of tanh(1).
%H Simon Plouffe, <a href="/A118326/b118326.txt">Table of n, a(n) for n = 1..340</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/EngelExpansion.html">Engel Expansion</a>
%H <a href="/index/El#Engel">Index entries for sequences related to Engel expansions</a>
%t 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 *)
%K nonn
%O 1,1
%A _Eric W. Weisstein_, Apr 23 2006
|
