A019365 Primes with primitive root 40.

7, 11, 17, 19, 23, 29, 47, 59, 73, 97, 101, 103, 109, 131, 137, 139, 149, 167, 179, 193, 229, 233, 257, 263, 269, 331, 349, 353, 383, 389, 421, 433, 461, 463, 491, 499, 503, 509, 541, 571, 577, 593, 607, 617, 619, 659, 661, 673, 701, 709, 727, 743, 829, 857, 859, 863

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Comments

Subsequence of A028416. - Davide Rotondo, Dec 31 2024

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Index entries for primes by primitive root

Crossrefs

Cf. A028416.

Programs

Mathematica

pr=40; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]

PARI

isok(p) = isprime(p) && (gcd(p,40)==1) && (znorder(Mod(40, p)) == p-1); \\ Michel Marcus, Jan 26 2025