%I #11 Jan 02 2022 21:05:26
%S 1,6,8,13,19,21,105,401,1053,2012,4310,114743,235156,287799,1269345,
%T 1481217,1978865,2703836,3103386,3325474,18167905,553255504,782224772,
%U 1039603284,26121336847,37996375306,60661762577,109713190320
%N Engel expansion of Sum_{k>=0} 1/(5 + k)^k.
%C Shgz(5) = 1.1891909643804311990212726717131587411...
%t ToEngel[ x_, n_Integer ] := Rest@First@Transpose@NestList[ {Ceiling[ 1/# ], #}&[ Times@@#-1 ]&, {1, Abs[ x ]+1}, n ]
%Y Cf. A006784 for definition of Engel expansion.
%K nonn,easy,nice
%O 1,2
%A _Olivier GĂ©rard_, Jul 10 2001
|