%I A118239
%S A118239 1,2,12,30,56,90,132,182,240,306,380,462,552,650,756,870,992,1122,1260,
%T A118239 1406,1560,1722,1892,2070,2256,2450,2652,2862,3080,3306,3540,3782,4032,
%U A118239 4290,4556,4830,5112,5402,5700,6006,6320,6642,6972,7310,7656,8010,8372
%N A118239 Engel expansion of cosh(1).
%C A118239 Differs from A002939 only in first term.
%H A118239 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               EngelExpansion.html">Engel Expansion</a>
%H A118239 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PierceExpansion.html">Pierce Expansion</a>
%F A118239 A118239(n) = A002939(n-1) = 2(n-1)(2n-3) for n>1.
%t A118239 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[Cosh[1],7! ],50] [From Vladimir Orlovsky 
               (4vladimir(AT)gmail.com), Jun 08 2009]
%Y A118239 Cf. A002939, A068377.
%Y A118239 Sequence in context: A156021 A067348 A002939 this_sequence A127118 A083175 
               A019258
%Y A118239 Adjacent sequences: A118236 A118237 A118238 this_sequence A118240 A118241 
               A118242
%K A118239 nonn
%O A118239 1,2
%A A118239 Eric Weisstein (eric(AT)weisstein.com), Apr 17, 2006