OFFSET
2,1
COMMENTS
a(n) is the denominator of the generating rational of n (see comments and numerators in A323184).
If n is prime, a(n) is n.
LINKS
Georg Fischer, Table of n, a(n) for n = 2..1000
EXAMPLE
a(28) = 37 because 15/37 = [0; 2, 2, 7] and 2*2*7 = 28.
a(29) = 29 because 1/29 = [0; 29] = 29.
MATHEMATICA
Array[Denominator@ FromContinuedFraction@ Prepend[Flatten@ Map[ConstantArray[ #1, #2] & @@ # &, FactorInteger@ #], 0] &, 67, 2] (* Michael De Vlieger, Jan 07 2019 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Chris Boyd, Jan 06 2019
STATUS
approved