%I A014012
%S A014012 4,4,11,45,70,1111,4423,5478,49340,94388,200677,308749,
%T A014012 708066,711391,1113024,4342375,4529119,8061070,12060867,
%U A014012 56215509,69737317,124001030,214920537,471564389,891380746
%N A014012 Engel expansion of 1/Pi.
%H A014012 T. D. Noe, <a href="b014012.txt">Table of n, a(n) for n=1..300</a>
%H A014012 <a href="Sindx_El.html#Engel">Index entries for sequences related to 
               Engel expansions</a>
%t A014012 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[1/Pi,7! ],50] [From Vladimir Orlovsky 
               (4vladimir(AT)gmail.com), Jun 08 2009]
%Y A014012 See A006784 for definition.
%Y A014012 Sequence in context: A107856 A128499 A048223 this_sequence A160721 A151836 
               A147582
%Y A014012 Adjacent sequences: A014009 A014010 A014011 this_sequence A014013 A014014 
               A014015
%K A014012 nonn
%O A014012 1,1
%A A014012 Simon Plouffe (simon.plouffe(AT)gmail.com)