login
A173080
Positive integers with the property that the sum of the cubes of their divisors is a multiple of 585.
0
8, 24, 40, 56, 72, 88, 104, 120, 128, 136, 152, 168, 179, 184, 200, 216, 232, 248, 264, 280, 296, 312, 323, 328, 344, 358, 360, 376, 384, 389, 392, 398, 408, 424, 437, 440, 456, 459, 472, 488, 493, 504, 520, 536, 537, 552, 568, 569, 584, 600, 616, 621, 632
OFFSET
1,1
COMMENTS
It is easy to show that this sequence contains all positive integers of the form 16k+8.
MATHEMATICA
Select[Range[700], Divisible[Total[Divisors[#]^3], 585]&] (* Harvey P. Dale, Feb 23 2011 *)
PROG
(PARI) is(k) = !(sigma(k, 3) % 585); \\ Amiram Eldar, Aug 12 2024
CROSSREFS
Cf. A001158.
Sequence in context: A050427 A329549 A031046 * A051062 A152531 A074348
KEYWORD
nonn
AUTHOR
John W. Layman, Feb 09 2010
STATUS
approved