login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A108905 Engel series expansion for Sierpinski's constant. 0
1, 1, 2, 6, 51, 114, 136, 149, 1388, 3654, 3961, 41614, 2975365, 4120126, 5760908, 11210809, 21235067, 43239302, 156258546, 230627452, 595763433, 4709180601, 148918280487, 841708059551, 2895551449652, 5660433533409, 6575950336213 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..26.

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[ N[ Pi(-Log[Pi] + 2EulerGamma + 4LogGamma[3/4]), 2^8], 25] (* Robert G. Wilson v *)

CROSSREFS

Cf. A062089, A006784.

Sequence in context: A238596 A134047 A078464 * A247383 A298994 A203634

Adjacent sequences:  A108902 A108903 A108904 * A108906 A108907 A108908

KEYWORD

nonn

AUTHOR

Hauke Worpel (hw1(AT)email.com), Jul 17 2005

EXTENSIONS

a(11) - a(26) from Robert G. Wilson v, Jul 21 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 22 03:41 EST 2019. Contains 329387 sequences. (Running on oeis4.)