login
A328944
Arithmetic numbers (A003601) that are not harmonic (A001599).
1
3, 5, 7, 11, 13, 14, 15, 17, 19, 20, 21, 22, 23, 27, 29, 30, 31, 33, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 51, 53, 54, 55, 56, 57, 59, 60, 61, 62, 65, 66, 67, 68, 69, 70, 71, 73, 77, 78, 79, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 96, 97, 99, 101
OFFSET
1,1
COMMENTS
Numbers m such that the arithmetic mean of the divisors of m is an integer but the harmonic mean of the divisors of m is not an integer.
Numbers m such that A(m) = A000203(m)/A000005(m) is an integer but H(m) = m * A000005(m)/A000203(m) is not an integer.
Corresponding values of A(m): 2, 3, 4, 6, 7, 6, 6, 9, 10, 7, 8, 9, 12, 10, 15, 9, 16, 12, 12, 19, 15, 14, 21, 12, 22, ...
Corresponding values of H(m): 3/2, 5/3, 7/4, 11/6, 13/7, 7/3, 5/2, 17/9, 19/10, 20/7, 21/8, 22/9, ...
Complement of A007340 with respect to A003601.
MATHEMATICA
Select[Range[100], Divisible[DivisorSigma[1, #], DivisorSigma[0, #]] && !Divisible[# * DivisorSigma[0, #], DivisorSigma[1, #]] &] (* Amiram Eldar, Nov 01 2019 *)
PROG
(Magma) [m: m in [1..10^5] | IsIntegral(SumOfDivisors(m) / NumberOfDivisors(m)) and not IsIntegral(m * NumberOfDivisors(m) / SumOfDivisors(m))]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Oct 31 2019
STATUS
approved