|
|
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.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|