

A131272


Numbers k such that k divides Sum_{j=1..k} prime(j)^12.


2



1, 37, 7187, 3140407, 4986959, 5139161, 751213639, 163007938237, 5134788477263, 36197588005399, 940901369608517
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS



LINKS



MATHEMATICA

s = 0; Do[s = s + Prime[n]^12; If[ Mod[s, n] == 0, Print[n]], {n, 1000000}]


PROG



CROSSREFS

Cf. A085450 = smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.


KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



