|
|
A166606
|
|
Numbers k such that Sum_{i=1..k} i^6 divides Product_{i=1..k} i^6.
|
|
5
|
|
|
1, 1556, 1640, 3907, 5642, 6205, 7238, 8311, 10350, 11551, 12499, 13371, 13812, 17524, 17589, 18162, 18790, 21569, 21573, 22381, 22544, 23809, 24312, 24416, 24598, 24629, 25247, 25463, 26093, 26583, 26829, 27091, 27098, 28646, 28804
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
k = s = 1; p = 1; lst = {}; While[k < 5000, If[Mod[p, s] == 0, AppendTo[lst, k]]; k++; s = s + k^6; p = p*k^6]; lst (* G. C. Greubel, May 18 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|