|
Search: id:A076303
|
|
|
| A076303 |
|
Engel expansion of exp(Pi*Sqrt(163) - 262537412640768743. |
|
+0
1
|
|
| 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 6, 19, 1169, 21384, 520409, 2559029, 2922819, 3228884, 6972029, 18244654, 24601850, 146539491
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
EngelExp[ A_, n_ ] := Join[ Array[ 1 &, Floor[ A ]], First@ Transpose @ NestList[ {Ceiling[ 1/Expand[ #[[ 1 ]] #[[ 2 ]] - 1 ]], Expand[ #[[ 1 ]] #[[ 2 ]] - 1]} &, {Ceiling[ 1/(A - Floor[A]) ], A - Floor[A]}, n - 1 ]]; EngelExp[E^(Pi*Sqrt[163]) - 262537412640768743, 52]
|
|
CROSSREFS
|
Cf. A006784.
Sequence in context: A102572 A098391 A071702 this_sequence A071839 A111893 A121902
Adjacent sequences: A076300 A076301 A076302 this_sequence A076304 A076305 A076306
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 03 2003
|
|
|
Search completed in 0.002 seconds
|
