|
|
A128297
|
|
a(n) = numerator of b(n): b(1)=1; b(n+1) = [b(1);b(2),...,b(n)]/b(n), where [...] is a continued fraction of rational terms.
|
|
1
|
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(6) = the numerator of b(6). b(6) = (1 +1/(1 +1/(2 +1/(5/6 +35/74))))*35/74 = 4735/5772.
|
|
MATHEMATICA
|
a = {1}; Do[AppendTo[a, FromContinuedFraction[a]/a[[ -1]]], {10}]; Numerator[a] (* Stefan Steinerberger, Oct 24 2007 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|