%I #8 Jan 02 2022 20:24:35
%S 1,2,4,36,2330,3274,7195,28106,38508,74032,74935,203763,264407,431066,
%T 1679581,2473728,2790505,9118184,10686256,39154390,64918230,
%U 3725272877,6503732261,10906782833,33507112881,34193678041
%N Engel expansion of Sum_{k>=0} 1/(1 + k)^k.
%C Shgz(1) = 1.6284737129015844470558891432618830316...
%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
%O 1,2
%A _Olivier GĂ©rard_, Jul 10 2001
|