OFFSET
1,7
COMMENTS
Denominator of n / A005940(n).
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
nn = 84; Array[Set[a[#], #] &, 2]; Do[If[EvenQ[n], Set[a[n], 2 a[n/2]], Set[a[n], Times @@ Power @@@ Map[{Prime[PrimePi[#1] + 1], #2} & @@ # &, FactorInteger[a[(n + 1)/2]]]]], {n, 3, nn}]; Array[a[#]/GCD[a[#], #] &, nn] (* Michael De Vlieger, Jul 28 2023 *)
PROG
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Jul 28 2023
STATUS
approved