OFFSET
1,2
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
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Jan 19 2007
EXTENSIONS
Extended by Ray Chandler, Jan 22 2007
STATUS
approved