|
| |
|
|
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
| |
|
|
1, 1, 2, 5, 74, 4735, 188040808, 10740045446796805, 1363118590418849109388908467099944, 31779046363111610229758725291999838369088276597741410196574625989
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
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 (stefan.steinerberger(AT)gmail.com), Oct 24 2007
|
|
|
CROSSREFS
| Cf. A128298.
Sequence in context: A007506 A042693 A172037 * A183291 A102983 A038583
Adjacent sequences: A128294 A128295 A128296 * A128298 A128299 A128300
|
|
|
KEYWORD
| frac,nonn
|
|
|
AUTHOR
| Leroy Quet Feb 25 2007
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Oct 24 2007
|
| |
|
|
