OFFSET
1,2
COMMENTS
A disjoint union of the harmonic numbers (A001599) and the numbers whose harmonic mean of divisors is of the form m + 1/k, where m and k are integers.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
2 is a term since the harmonic mean of divisors of 2 is 4/3 and 3 | (4-1).
MATHEMATICA
h[n_] := DivisorSigma[0, n]/DivisorSigma[-1, n]; q[n_] := Divisible[Numerator[(h1 = h[n])] - 1, Denominator[h1]]; Select[Range[1000], q]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 02 2021
STATUS
approved