login
A070851
Smallest prime == 1 mod (7n).
9
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
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. A034694.
Sequence in context: A291435 A010868 A291500 * A040813 A022363 A146226
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 15 2002
EXTENSIONS
More terms from Benoit Cloitre, May 18 2002
STATUS
approved