login
A348695
a(n) is the least number k such that the denominator of the harmonic mean of the divisors of k is equal to n, or -1 if no such k exists.
2
1, 3, 2, 7, 24, 11, 4, 21, 10, 19, 258, 23, 9, 39, 8, 31, 402, 55, 37, 57, 26, 43, 3836, 47, 216, 99, 34, 124, 4844, 59, 16, 93, 86, 67, 76, 71, 73, 111, 125, 79, 978, 83, 7196, 129, 58, 411, 7868, 155, 52, 447, 101, 63, 1266, 107, 109, 372, 74, 519, 9884, 203
OFFSET
1,2
LINKS
EXAMPLE
a(2) = 3 since the harmonic mean of the divisors of 3 is 3/2.
a(3) = 2 since the harmonic mean of the divisors of 2 is 4/3.
MATHEMATICA
den[n_] := Denominator[DivisorSigma[0, n]/DivisorSigma[-1, n]]; seq[m_] := Module[{s = Table[0, {m}], c = 0, n = 1, i}, While[c < m, i = den[n]; If[i <= m && s[[i]] == 0, c++; s[[i]] = n]; n++]; s]; seq[100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 30 2021
STATUS
approved