|
|
A063188
|
|
Engel expansion of Sum_{k>=0} 1/(5 + k)^k.
|
|
0
|
|
|
1, 6, 8, 13, 19, 21, 105, 401, 1053, 2012, 4310, 114743, 235156, 287799, 1269345, 1481217, 1978865, 2703836, 3103386, 3325474, 18167905, 553255504, 782224772, 1039603284, 26121336847, 37996375306, 60661762577, 109713190320
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Shgz(5) = 1.1891909643804311990212726717131587411...
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|