login
A061732
Primes with 28 as smallest positive primitive root.
1
133321, 140351, 151009, 160081, 191161, 224041, 277747, 282481, 298681, 344161, 485161, 509521, 570001, 669241, 675601, 700129, 784351, 859751, 874681, 1014121, 1068721, 1222831, 1613041, 1618387, 1794841, 1795561, 1868231
OFFSET
1,1
LINKS
MATHEMATICA
Prime[ Select[ Range[150000], PrimitiveRoot[ Prime[ # ] ] == 28 & ] ]
(* or *)
Select[ Prime@Range@150000, PrimitiveRoot@# == 28 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, May 06 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 11 2001
STATUS
approved