|
Search: id:A128167
|
|
|
| A128167 |
|
Numbers n such that n divides 1 + Sum[ Prime[k]^3, {k,1,n} ] = 1 + A098999(n). |
|
+0
7
|
|
| 1, 2, 4, 5, 6, 10, 12, 14, 55, 82, 87, 935, 973, 1168, 1181, 1457, 5457, 7372, 11250, 17978, 25664, 182717, 472931, 2385026, 3002594, 9249715, 21843515
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
s = 1; Do[s = s + Prime[n]^3; If[ Mod[s, n] == 0, Print[n]], {n, 1000000}]
|
|
CROSSREFS
|
Cf. A000040, A098999, A122140, A128165, A128166, A128168, A128169, A128170, A128171.
Sequence in context: A014871 A029513 A061949 this_sequence A127092 A128171 A039036
Adjacent sequences: A128164 A128165 A128166 this_sequence A128168 A128169 A128170
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 22 2007, Feb 23 2007
|
|
|
Search completed in 0.002 seconds
|
