|
|
A131275
|
|
Numbers k such that k divides Sum_{j=1..k} prime(j)^15.
|
|
2
|
|
|
1, 17, 25, 31, 1495, 5555, 8185, 8647, 106841, 187329, 345377, 1811351, 2179119, 2863775, 6368703, 10250821, 59137893, 337430815, 11349203711, 183233304195, 12538656829431, 40154010310477, 1761333303516473
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
s = 0; Do[s = s + Prime[n]^15; If[ Mod[s, n] == 0, Print[n]], {n, 400000}]
With[{nn = 3*10^6}, Select[Thread[{Accumulate[Prime[ Range[nn]]^15], Range[ nn]}], Divisible[#[[1]], #[[2]]] &]][[All, 2]] (* This will generate the first 14 terms of the sequence; to generate more, increase the value of nn, but it may take a long time to run. *) (* Harvey P. Dale, Oct 03 2016 *)
|
|
CROSSREFS
|
Cf. A085450 = smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.
|
|
KEYWORD
|
more,nonn,less,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|