|
| |
|
|
A063193
|
|
Engel expansion of sum( 1/(10+k)^k, {k,0,Infinity}).
|
|
0
| |
|
|
1, 11, 13, 17, 19, 22, 39, 46, 95, 100, 202, 716, 1008, 1347, 3544, 4174, 27864, 51834, 81170, 115510, 172502, 1297395, 1428481, 3429593, 8484143, 16796993, 35875141, 202879810, 560789726, 953079326, 1456311045, 2218799342
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Shgz(10)=1.0983361113176944131706689076969241474...
|
|
|
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.
Sequence in context: A068191 A191599 A084374 * A056758 A096489 A008364
Adjacent sequences: A063190 A063191 A063192 * A063194 A063195 A063196
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Olivier Gerard (olivier.gerard(AT)gmail.com), Jul 10 2001.
|
| |
|
|
