A019350 Primes with primitive root 23.

2, 3, 5, 17, 47, 59, 89, 97, 113, 127, 131, 137, 149, 167, 179, 181, 223, 229, 281, 293, 307, 311, 337, 347, 389, 401, 421, 433, 439, 443, 457, 487, 491, 499, 521, 547, 557, 569, 587, 599, 607, 617, 641, 647, 661, 677, 683, 709, 719, 733, 739, 769, 773, 797, 811, 823

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

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

Programs

Mathematica

pr=23; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{2,3,5,17},Select[Prime[Range[200]],PrimitiveRoot[#,23]==23&]] (* Harvey P. Dale, Jan 09 2024 *)

PARI

is(n)=isprime(n) && n!=23 && znorder(Mod(23,n))==n-1 \\ Charles R Greathouse IV, Sep 28 2015