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

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Index entries for primes by primitive root

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 *)

Prog

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

Crossrefs

Sequence in context: A076706 A243441 A256426 * A235630 A235636 A268130

Adjacent sequences: A019347 A019348 A019349 * A019351 A019352 A019353

Keyword

nonn

Author

David W. Wilson

Status

approved