

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



STATUS

approved



