OFFSET
1,1
COMMENTS
Cf. A006784 for definition of Engel expansion.
LINKS
Eric Weisstein's World of Mathematics, Engel Expansion
Wikipedia, Engel Expansion
FORMULA
cos(1)/(1+cos(1)) = 1/(1+1/cos(1)) = 1/(1+sec(1)).
EXAMPLE
0.35077679479523758155811675...
MAPLE
Digits:= 1000:
b:= evalf(1/(1+1/cos(1))): engel:= (r, n)-> `if`(n=0 or r=0, NULL, [ceil(1/r), engel(r*ceil(1/r)-1, n-1)][]):
engel(b, 39);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Feb 21 2013
STATUS
approved