login
A063194
Engel expansion of 1 + Sum_{k>=1} 1/k^k.
0
1, 1, 4, 7, 7, 11, 80, 114, 6099, 11431, 26617, 33585, 56088, 61344, 194790, 234794, 1389968, 1786243, 2418760, 2647328, 3746318, 4952495, 5249786, 5341636, 10517386, 55449405, 79637649, 561022295, 625320951, 3650616781
OFFSET
1,3
COMMENTS
Shgz(0) = 2.2912859970626635404072825905956005414... = 1 + A073009.
MATHEMATICA
ToEngel[ x_, n_Integer ] := Rest@First@Transpose@NestList[ {Ceiling[ 1/# ], #}&[ Times@@#-1 ]&, {1, Abs[ x ]+1}, n ]
CROSSREFS
Cf. A006784 for definition of Engel expansion, A073009.
Sequence in context: A310931 A310932 A194121 * A071529 A349537 A271919
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jul 10 2001
STATUS
approved