|
Search: id:A125825
|
|
|
| A125825 |
|
Numbers n such that n divides Sum[ Prime[k]^6, {k,1,n} ]. |
|
+0
12
|
| |
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
s = 0; Do[s = s + Prime[n]^6; If[ Mod[s, n] == 0, Print[n]], {n, 240000}]
|
|
CROSSREFS
|
Cf. A085450, A122142, A122103, A098999, A007504, A045345, A024450, A111441, A122102, A122140.
Sequence in context: A048900 A068292 A031654 this_sequence A031564 A140937 A043598
Adjacent sequences: A125822 A125823 A125824 this_sequence A125826 A125827 A125828
|
|
KEYWORD
|
bref,more,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 03 2007
|
|
EXTENSIONS
|
a(8) from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 10 2007
|
|
|
Search completed in 0.002 seconds
|
