A178386 Primes p such that q*p+-Mod(p,q) are primes, for q=6.

7, 11, 17, 41, 59, 71, 103, 113, 239, 269, 283, 311, 313, 373, 397, 449, 577, 587, 701, 787, 827, 907, 941, 977, 1033, 1117, 1217, 1259, 1361, 1373, 1423, 1571, 1721, 1907, 1949, 2087, 2137, 2203, 2287, 2293, 2347, 2423, 2549, 2591, 2677, 2897, 2957, 3023

Offset

1,1

Comments

6*7=42+-1->primes, 6*11=66+-5->primes,..

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

q=6; lst={}; Do[p=Prime[n]; If[PrimeQ[q*p-Mod[p, q]]&&PrimeQ[q*p+Mod[p, q]], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[500]], With[{c=Mod[#, 6]}, AllTrue[6#+{c, -c}, PrimeQ]]&] (* Harvey P. Dale, Aug 09 2025 *)

Crossrefs

Cf. A000040, A178383, A178385

Sequence in context: A386029 A386126 A079651 * A097956 A094104 A167513

Adjacent sequences: A178383 A178384 A178385 * A178387 A178388 A178389

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 26 2010

Status

approved