login
A061333
Primes with 21 as smallest positive primitive root.
1
409, 4441, 12841, 15889, 22751, 30091, 41809, 55921, 60889, 77167, 82183, 99823, 103561, 110281, 120391, 127249, 136471, 139201, 155671, 157351, 161881, 164209, 180361, 180799, 182839, 183823, 187711, 191047, 230929, 250423, 257263, 272191
OFFSET
1,1
MATHEMATICA
Prime[ Select[ Range[24000], PrimitiveRoot[ Prime[ # ] ] == 21 & ] ]
(* or *)
Select[ Prime@Range@24000, PrimitiveRoot@# == 21 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 25 2001
STATUS
approved