STATUS
proposed
approved
proposed
approved
editing
proposed
a(n) = A006530(A001008(n)). - Amiram Eldar, Feb 24 2020
Amiram Eldar, <a href="/A308971/b308971.txt">Table of n, a(n) for n = 1..325</a>
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) rowa(n)={if(n>1, factor(A001008(n))[1, 1], 1)}
proposed
editing
editing
proposed
Array[FactorInteger[Numerator@HarmonicNumber[#]][[-1, 1]] &, 35] (* Michael De Vlieger, Jul 04 2019 *)
proposed
editing