A128299 a(n) = numerator of b(n): b(1)=1; b(n+1) = [b(1);b(2),...,b(n),1], where [...] is a continued fraction of rational terms.

1, 2, 4, 24, 768, 818688, 918482792448, 1160710851973467480711168, 1851362556448808267346772937519541852218467221504, 188473437767072793673508563952884052289202111379015123907036183743886914255400892747408659578880

Offset

1,2

Links

Table of n, a(n) for n=1..10.

Example

a(5) = the numerator of b(5). b(5) = 1 +1/(2 +1/(4/3 +1/(24/17 +1))) = 768/553.

Mathematica

a = {1}; Do[AppendTo[a, FromContinuedFraction[Join[a, {1}]]], {10}]; Numerator[a] (* Stefan Steinerberger, Oct 24 2007 *)

Crossrefs

Cf. A128300.

Sequence in context: A332539 A296787 A341633 * A143672 A001510 A103099

Adjacent sequences: A128296 A128297 A128298 * A128300 A128301 A128302

Keyword

frac,nonn

Author

Leroy Quet, Feb 25 2007

Extensions

More terms from Stefan Steinerberger, Oct 24 2007

Status

approved