A070851 Smallest prime == 1 mod (7n).

29, 29, 43, 29, 71, 43, 197, 113, 127, 71, 463, 337, 547, 197, 211, 113, 239, 127, 1597, 281, 883, 463, 967, 337, 701, 547, 379, 197, 2437, 211, 1303, 449, 463, 239, 491, 757, 2591, 1597, 547, 281, 1723, 883, 3011, 617, 631, 967, 659, 337, 1373, 701, 1429

Offset: 1

Author

Amarnath Murthy, May 15 2002

Keywords

• nonn

Links

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

Crossrefs

Cf. A070846 to A070850 and A070852, A070853.

Cf. A034694.

Programs

Mathematica

Module[{nn=60,prs=Prime[Range[500]]},Table[SelectFirst[prs,Mod[#,7n]==1&],{n,nn}]] (* Harvey P. Dale, Apr 13 2022 *)

PARI

for(n=1,80,s=1; while((isprime(s)*s-1)%(7*n)>0,s++); print1(s,","))

Extensions

More terms from Benoit Cloitre, May 18 2002