|
|
A128167
|
|
Numbers k such that k divides 1 + Sum_{j=1..k} prime(j)^3 = 1 + A098999(k).
|
|
1
|
|
|
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, 37468158, 64403264, 87803374, 140933482, 281907048, 342460116, 1543515106, 1995156064
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
k = 0; s = 1; p = 2; lst = {}; While[k < 516862000, s = s + p^3; If[Mod[s, ++k] == 0, AppendTo[lst, k]; Print[{k, p}]]; p = NextPrime@ p]; lst
|
|
CROSSREFS
|
Cf. A085450 = smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|