|
3, 5, 7, 23, 47, 59, 89, 97, 101, 107, 113, 149, 157, 179, 193, 197, 199, 227, 229, 257, 263, 271, 311, 359, 379, 389, 397, 401, 433, 449, 479, 503, 521, 557, 563, 569, 601, 613, 641, 647, 653, 659, 673, 683, 701, 709, 719, 727, 823, 827, 853, 857, 907, 919, 953, 967
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
pr=38; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{3, 5, 7, 23}, Select[Prime[Range[200]], PrimitiveRoot[#, 38]==38&]] (* Harvey P. Dale, Aug 04 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|