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