A061328 Primes with 15 as smallest positive primitive root.
439, 3631, 4657, 8681, 16633, 21559, 28393, 30937, 32257, 32353, 33811, 33871, 36793, 36871, 41851, 42193, 46649, 48673, 51631, 58237, 59053, 59497, 63691, 71011, 71671, 82039, 84503, 85297, 88591, 88873, 91961, 93937, 94033, 101839
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Programs
-
Mathematica
Prime[ Select[ Range[10000], PrimitiveRoot[ Prime[ # ] ] == 15 & ] ] (* or *) Select[ Prime@Range@10000, PrimitiveRoot@# == 15 &] (* Robert G. Wilson v, May 11 2001 *)