A105451 Numbers k such that prime(k+1) == 8 (mod k).

1, 5, 15, 73, 75, 100347, 637329, 27067271, 179993015, 1208198523

Offset

1,2

Comments

No additional terms up to 7 million. - Harvey P. Dale, Jan 23 2012

Integers k such that A004649(k+1) = 8. - Michel Marcus, Dec 30 2022

Links

Table of n, a(n) for n=1..10.

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

def A105451(max) :
....terms = []
....p = 3
....for n in range(1, max+1) :
........if (p - 7) % n == 0 : terms.append(n)
........p = next_prime(p)
....return terms
end # Eric M. Schmidt, Feb 05 2013

Crossrefs

Cf. A004649, A105286, A105287, A105288, A105290, A105329.

Cf. A023150 (Numbers k such that prime(n) == 8 (mod k)).

Sequence in context: A149650 A318376 A186364 * A149651 A149652 A151487

Adjacent sequences: A105448 A105449 A105450 * A105452 A105453 A105454

Keyword

nonn,more

Author

Zak Seidov, May 02 2005

Extensions

First two terms inserted by Eric M. Schmidt, Feb 05 2013

a(8)-a(10) from Michel Marcus, Dec 29 2022

Status

approved