|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
It is easy to show that this sequence contains all positive integers of the form 16k+8.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|