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

1, 2, 3, 9, 5, 44, 7, 74, 28, 112, 11, 2274, 13, 212, 243, 1193, 17, 7298, 19, 9627, 465, 508, 23, 445502, 126, 704, 759, 25797, 29, 1056347, 31, 38250, 1125, 1192, 1265, 13523875, 37, 1484, 1563, 3136897, 41, 3946112, 43, 98265, 100092, 2164, 47

Offset

1,2

Links

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A127611 (numerator), A127613.

Sequence in context: A324576 A109607 A324581 * A038756 A011164 A082234

Adjacent sequences: A127609 A127610 A127611 * A127613 A127614 A127615

Keyword

frac,nonn

Author

Leroy Quet, Jan 19 2007

Extensions

Extended by Ray Chandler, Jan 22 2007

Status

approved