|
| |
|
|
A125825
|
|
Numbers n such that n divides 2^6 + 3^6 + 5^6 + ... + prime(n)^6.
|
|
12
| | |
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| s = 0; Do[s = s + Prime[n]^6; If[ Mod[s, n] == 0, Print[n]], {n, 240000}]
|
|
|
PROG
| (PARI) s=0; n=0; forprime(p=2, 4e9, s+=p^6; if(s%n++==0, print1(n", "))) \\ Charles R Greathouse IV, Mar 15, 2011
|
|
|
CROSSREFS
| Cf. A085450, A122142, A122103, A098999, A007504, A045345, A024450, A111441, A122102, A122140.
Sequence in context: A176111 A031654 A164517 * A031564 A140937 A043598
Adjacent sequences: A125822 A125823 A125824 * A125826 A125827 A125828
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 03 2007
|
|
|
EXTENSIONS
| a(4) from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 10 2007
a(5)-a(6) from Charles R Greathouse IV, Mar 15 2011 to Mar 19 2011
|
| |
|
|
