%I A161618
%S A161618 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%T A161618 1,3,3,7,9,23,43,128,1847,10674,256943,951850,1361782,1407741,2143780,
%U A161618 3702054,13341664,17967518,101541311,159133300,246184506,3508330471
%N A161618 Engel expansion of Pi^Pi.
%H A161618 <a href="Sindx_El.html#Engel">Index to sequences related to Engel expansions</
               a>
%e A161618 A073233 = 36.462... = 1/1 +1/1 +1/1 +... +1/(1*3) +1/(1*3*3) +1/(1*3*3*7) 
               +1/(1*3*3*7*9) +...
%t A161618 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[Pi^Pi,7! ],50]
%Y A161618 Sequence in context: A056295 A117525 A075149 this_sequence A157933 A013915 
               A136445
%Y A161618 Adjacent sequences: A161615 A161616 A161617 this_sequence A161619 A161620 
               A161621
%K A161618 nonn
%O A161618 1,37
%A A161618 Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 14 2009
%E A161618 Example added by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 02 
               2009