|
| |
|
|
A128169
|
|
Numbers n such that n divides 1 + Sum[ Prime[k]^5, {k,1,n} ] = 1 + A122103(n).
|
|
6
| |
|
|
1, 2, 4, 6, 10, 12, 22, 58, 155, 363, 464, 665, 1146, 2870, 3048, 4019, 5931, 8724, 21503, 50439, 67560, 476281, 705570, 4050684, 6956459, 7443590, 10449928, 10799546, 15385564, 17735139, 83325458, 245271750, 255583775
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| p = 2; k = 0; s = 1; lst = {}; While[k < 521330000, s = s + p^5; If[Mod[s, ++k] == 0, AppendTo[lst, k]; Print[{k, p}]]; p = NextPrime@ p]
|
|
|
CROSSREFS
| Cf. A000040, A122103, A122142, A128165, A128166, A128167, A128168, A128170, A128171.
Sequence in context: A074645 A125286 A045963 * A095923 A094960 A032396
Adjacent sequences: A128166 A128167 A128168 * A128170 A128171 A128172
|
|
|
KEYWORD
| hard,nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 22 2007, Feb 23 2007
|
|
|
EXTENSIONS
| a(31) from Sean A. Irvine, Jan 19 2011
a(32) & a(33) from Robert G. Wilson v
|
| |
|
|
