login
A061327
Primes with 14 as smallest positive primitive root.
1
1031, 1489, 1871, 3001, 4391, 5641, 6581, 8011, 12541, 12671, 12973, 17209, 17449, 18911, 21319, 21649, 22441, 24001, 24469, 24841, 28751, 31849, 35803, 38281, 38569, 38861, 40429, 40751, 41467, 42409, 43609, 45289, 50587, 51169, 53161
OFFSET
1,1
MATHEMATICA
Prime[ Select[ Range[5500], PrimitiveRoot[ Prime[ # ] ] == 14 & ] ]
(* or *)
Select[ Prime@Range@5500, PrimitiveRoot@# == 14 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 24 2001
STATUS
approved