login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Engel series expansion for Sierpinski's constant.
0

%I #5 Oct 31 2013 12:17:27

%S 1,1,2,6,51,114,136,149,1388,3654,3961,41614,2975365,4120126,5760908,

%T 11210809,21235067,43239302,156258546,230627452,595763433,4709180601,

%U 148918280487,841708059551,2895551449652,5660433533409,6575950336213

%N Engel series expansion for Sierpinski's constant.

%t 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_ *)

%Y Cf. A062089, A006784.

%K nonn

%O 0,3

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

%E a(11) - a(26) from _Robert G. Wilson v_, Jul 21 2005