A127613 a(n) = denominator of the continued fraction which has the positive divisors of n as its terms. The terms are written in order from n for the integer part, to 1 for the final term of the continued fraction.

1, 1, 1, 3, 1, 10, 1, 13, 4, 16, 1, 268, 1, 22, 21, 107, 1, 577, 1, 693, 29, 34, 1, 26512, 6, 40, 37, 1329, 1, 50323, 1, 1725, 45, 52, 43, 537559, 1, 58, 53, 113317, 1, 134368, 1, 3225, 2916, 70, 1, 10259608, 8, 4091, 69, 4485, 1, 282700, 67, 303277, 77, 88, 1

Offset

1,4

Links

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

Example

The divisors of 6 are 1,2,3,6. So a(6) is the denominator of 6 +1/(3 +1/(2+1/1)) = 63/10.

Mathematica

f[n_] := Denominator[FromContinuedFraction[Reverse[Divisors[n]]]]; Table[f[n], {n, 60}] (* Ray Chandler, Jan 22 2007 *)

Prog

(PARI) a(n) = contfracpnqn(Vecrev(divisors(n)))[2, 1]; \\ Kevin Ryde, Jan 19 2023

Crossrefs

Cf. A127611 (numerator), A127612.

Sequence in context: A010289 A226646 A347129 * A211360 A178866 A019427

Adjacent sequences: A127610 A127611 A127612 * A127614 A127615 A127616

Keyword

frac,nonn

Author

Leroy Quet, Jan 19 2007

Extensions

Extended by Ray Chandler, Jan 22 2007

Status

approved