|
|
A105451
|
|
Numbers k such that prime(k+1) == 8 (mod k).
|
|
6
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
bb={}; Do[If[8==Mod[Prime[n+1], n], bb=Append[bb, n]], {n, 1, 1000000}]; bb
Select[Range[700000], Mod[Prime[#+1], #]==8&] (* Harvey P. Dale, Jan 23 2012 *)
|
|
PROG
|
....terms = []
....p = 3
....for n in range(1, max+1) :
........if (p - 7) % n == 0 : terms.append(n)
........p = next_prime(p)
....return terms
|
|
CROSSREFS
|
Cf. A023150 (Numbers k such that prime(n) == 8 (mod k)).
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|