login
A061334
Primes with 22 as smallest positive primitive root.
1
3361, 6841, 9439, 13681, 14449, 26591, 26701, 28729, 39373, 40609, 41161, 41521, 54601, 61031, 66071, 66301, 68041, 68881, 70729, 82021, 85201, 89209, 90217, 93601, 96769, 104831, 110161, 112921, 117721, 121631, 125329, 126001, 128521
OFFSET
1,1
MATHEMATICA
Prime[ Select[ Range[12100], PrimitiveRoot[ Prime[ # ] ] == 22 & ] ]
(* or *)
Select[ Prime@Range@12100, PrimitiveRoot@# == 22 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 25 2001
STATUS
approved