A110498 a(1) = 1; a(m) = minimum denominator possible with a continued fraction [b(1);b(2),b(3),...b(m-1)], where (b(1),b(2),b(3),...b(m-1)) is a permutation of (a(1),a(2),a(3),...a(m-1)).

1, 1, 1, 2, 3, 7, 19, 113, 1579, 136132, 172824797

Offset

1,4

Links

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

Mathematica

a[1] = 1; a[n_] := a[n] = Union[ Denominator /@ FromContinuedFraction /@ Permutations[ Table[ a[i], {i, n - 1}]]] [[1]]; Table[ a[n], {n, 12}]

Crossrefs

Cf. A110497.

Sequence in context: A079804 A325057 A075487 * A244917 A172976 A171655

Adjacent sequences: A110495 A110496 A110497 * A110499 A110500 A110501

Keyword

nonn,more

Author

Leroy Quet and Robert G. Wilson v, Jul 22 2005

Status

approved