A055717 Numbers n such that n | sigma_13(n).

1, 6, 28, 120, 316, 496, 672, 1272, 1431, 1484, 1580, 2212, 2862, 3768, 4452, 4740, 5462, 5724, 6360, 7155, 7584, 8128, 11060, 11448, 12640, 13356, 14310, 15800, 16386, 17696, 18840, 22896, 28620, 30240, 32760, 33180, 35616, 37920, 38712

Offset: 1

Author

Robert G. Wilson v, Jun 09 2000

Keywords

• nonn

Comments

sigma_13(n) is the sum of the 13th powers of the divisors of n (A013961).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..5000

Programs

Mathematica

Do[If[Mod[DivisorSigma[13, n], n]==0, Print[n]], {n, 1, 50000}]