A061326 Primes with 13 as smallest positive primitive root.
457, 479, 1319, 1321, 1399, 2351, 2953, 3671, 3881, 3911, 4129, 4919, 5519, 5569, 6359, 6599, 6961, 7559, 7561, 8521, 8689, 8951, 9241, 9601, 9769, 10369, 11113, 11251, 12007, 12049, 12239, 12433, 12721, 12799, 12889, 13151, 14159, 14519
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Programs
-
Mathematica
Prime[ Select[ Range[2000], PrimitiveRoot[ Prime[ # ] ] == 13 & ] ] (* or *) Select[ Prime@Range@2000, PrimitiveRoot@# == 13 &] (* Robert G. Wilson v, May 11 2001 *)