|
|
A166605
|
|
Numbers k such that Sum_{i=1..k} i^5 divides Product_{i=1..k} i^5.
|
|
6
|
|
|
1, 13, 64, 95, 111, 118, 123, 133, 134, 140, 151, 177, 199, 217, 229, 242, 255, 264, 274, 281, 302, 305, 325, 333, 338, 354, 359, 365, 376, 394, 411, 414, 431, 433, 440, 472, 475, 477, 489, 514, 525, 528, 529, 537, 547, 569, 574, 583, 584, 585, 589, 594, 615
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
k = s = 1; p = 1; lst = {}; While[k < 100000, If[Mod[p, s] == 0, AppendTo[lst, k]]; k++; s = s + k^5; p = p*k^5]; lst (* G. C. Greubel, May 18 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|