|
%I #3 Mar 30 2012 17:31:01
%S 1,2,1,2,37,17,4,4,6,11,25,2,1,2,1,9,1,2,1,13,4,1,2,3,1,1,8,1,3,1,2,1,
%T 1,2,2,1,1,2,1,1,1,3,1,7,2,1,3,1,1,9,2,1,1,5,6,5,1,2,10,1,1,1,5,1,1,2,
%U 8,1,6,1,1,2,2,1,3,1,1,1,4,30,1,4,66,1,2,76,4,6,1,1,9,3,1,1,1,28,1,11,1,2
%N Continued fraction expansion of (1+(+1+ ... )^(1/e))^(1/e))^(1/e)).
%C Increasing partial quotients are: 1,2,37,66,76,84,145,686,983,2434,5120
%t f[n_] := N[(n + 1)^(1/E), 1024]; ContinuedFraction[ Nest[f, 1, 2500], 100]
%Y Cf. A094689.
%K cofr,nonn
%O 1,2
%A _Robert G. Wilson v_, May 18 2004
|
