|
|
A122140
|
|
Numbers m that divide the sum of cubes of the first m primes A098999(m).
|
|
5
|
|
|
1, 25, 537, 661, 5199, 113253, 240621, 5337048977, 17434578479, 34216676921, 1991831965911, 4495321247369, 22567781434431, 37328883555791, 110447613624133, 188368390470877, 324587968952249, 1983705516917661
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(2) = 25 because 25 is the first number n>1 that divides sum of cubes of the first n primes. A098999(25) mod 25 = (2^3 + 3^3 + 5^3 + ... + 89^3 + 97^3) mod 25 = 0.
|
|
MATHEMATICA
|
s = 0; t = {}; Do[s = s + Prime[n]^3; If[ Mod[s, n] == 0, AppendTo[t, n]], {n, 1000000}]; t
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|