OFFSET
0,3
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
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