A161618 Engel expansion of Pi^Pi.

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, 1, 3, 3, 7, 9, 23, 43, 128, 1847, 10674, 256943, 951850, 1361782, 1407741, 2143780, 3702054, 13341664, 17967518, 101541311, 159133300, 246184506, 3508330471

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jun 14 2009

Keywords

• nonn

Examples

			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) +...
		

Links

• Index to sequences related to Engel expansions

Programs

Mathematica

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]

Extensions

Example added by R. J. Mathar, Oct 02 2009