STATUS
editing
approved
editing
approved
Array[Denominator@ FromContinuedFraction@ Prepend[Flatten@ Map[ConstantArray[ #1, #2] & @@ # &, FactorInteger@ #], 0] &, 67, 2] (* Michael De Vlieger, Jan 07 2019 *)
approved
editing
Georg Fischer, <a href="/A323185/b323185_1.txt">Table of n, a(n) for n = 2..1000</a>
proposed
approved
editing
proposed
Georg Fischer, <a href="/A323185/b323185_1.txt">Table of n, a(n) for n = 2..1000</a>
approved
editing
proposed
approved
editing
proposed
Array[Denominator@ FromContinuedFraction@ Prepend[Flatten@ Map[ConstantArray[#1, #2] & @@ # &, FactorInteger@ #], 0] &, 67, 2] (* Michael De Vlieger, Jan 07 2019 *)
proposed
editing
editing
proposed