|
|
|
|
1, 2, 3, 6, 9, 14, 15, 24, 28, 30, 32, 42, 44, 55, 84, 91, 95, 120, 135, 140, 182, 198, 224, 234, 243, 261, 270, 308, 330, 351, 420, 444, 459, 477, 483, 492, 496, 546, 564, 570, 625, 630, 636, 672, 744, 756, 840, 852, 861, 924
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|