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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A070846 to A070850 and A070852, A070853.

Cf. A034694.

Sequence in context: A291435 A010868 A291500 * A040813 A022363 A146226

Adjacent sequences: A070848 A070849 A070850 * A070852 A070853 A070854

Keyword

nonn

Author

Amarnath Murthy, May 15 2002

Extensions

More terms from Benoit Cloitre, May 18 2002

Status

approved