OFFSET
1,4
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
KEYWORD
nonn,more
AUTHOR
Leroy Quet and Robert G. Wilson v, Jul 22 2005
STATUS
approved