A128298 a(n) = denominator 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, 6, 35, 5772, 88530295, 13109586855583296, 641514040130247702993686238424885, 38794682422831176556784792608495170681619094988640304687341019712

Offset

1,4

Links

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

Example

a(6) = the denominator 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}]; Denominator[a] (* Stefan Steinerberger, Oct 24 2007 *)

Crossrefs

Cf. A128297.

Sequence in context: A192999 A193000 A193001 * A059059 A304255 A050112

Adjacent sequences: A128295 A128296 A128297 * A128299 A128300 A128301

Keyword

frac,nonn

Author

Leroy Quet, Feb 25 2007

Extensions

More terms from Stefan Steinerberger, Oct 24 2007

Status

approved