|
|
A105287
|
|
Numbers k such that prime(k+1) == 2 (mod k).
|
|
7
|
|
|
1, 9, 67, 437, 441, 2615, 100349, 100353, 100359, 637197, 637305, 27066969, 27067049, 27067101, 27067113, 27067115, 179992839, 179993001
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
bb={}; Do[If[2==Mod[Prime[n+1], n], bb=Append[bb, n]], {n, 1, 200000}]; bb
With[{nn=640000}, Flatten[Position[Thread[{Range[nn], Prime[Range[2, nn+1]]}], _?(Mod[Last[#]-2, First[#]]==0&), {1}, Heads->False]]] (* Harvey P. Dale, Sep 23 2021 *)
|
|
PROG
|
(Sage)
terms = []
p = 3
for n in range(1, max+1) :
if (p - 2) % n == 0 : terms.append(n)
p = next_prime(p)
return terms
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|