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

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

Mathematica

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

Prog

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

Crossrefs

Cf. A028416.

Sequence in context: A106070 A346991 A038880 * A191055 A078497 A274505

Adjacent sequences: A019362 A019363 A019364 * A019366 A019367 A019368

Keyword

nonn,changed

Author

David W. Wilson

Status

approved