A019350 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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