login
A061325
Primes with 12 as smallest positive primitive root.
2
4111, 7841, 10111, 15391, 15991, 16061, 20011, 21031, 22699, 32299, 32957, 35911, 43963, 45127, 45631, 47431, 49831, 51199, 53731, 58111, 59671, 60331, 64231, 74311, 76039, 78079, 81331, 81761, 83311, 83431, 98911, 102871, 104729, 108907
OFFSET
1,1
MATHEMATICA
Prime[ Select[ Range[15000], PrimitiveRoot[ Prime[ # ] ] == 12 & ] ]
(* or *)
Select[ Prime@Range@15000, PrimitiveRoot@# == 12 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 24 2001
STATUS
approved