A073083 Numbers n such that sum k/d(k) is an integer, where d(k) is the k-th divisor of n (the divisors of n are in decreasing order).
1, 10, 12, 24, 615, 4066, 7960, 30432, 49260, 133686, 440286, 1201644, 6640812, 126953125, 411106256, 1046704882, 11046706752, 44588839041
Offset: 1
Examples
The divisors of 615 are [615,205,123,41,15,5,3,1] and 1/615+2/205+3/123+4/41+5/15+6/5+7/3+8/1 = 12 is an integer hence 615 is in the sequence.
Programs
-
Magma
[k:k in [1..500000]|IsIntegral(&+[m/Reverse(Divisors(k))[m]:m in [1..#Divisors(k)]])]; // Marius A. Burtea, Dec 06 2019
-
Mathematica
Select[Range[441000],IntegerQ[Total[Range[DivisorSigma[0,#]]/ Reverse[ Divisors[ #]]]]&] (* Harvey P. Dale, May 23 2019 *)
Extensions
More terms from Emeric Deutsch, Mar 05 2005
a(12)-a(17) from Lambert Klasen (lambert.klasen(AT)gmx.net), Jul 15 2005
a(18) from Giovanni Resta, Dec 06 2019
Comments