A061327 Primes with 14 as smallest positive primitive root.

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

Links

T. D. Noe, Table of n, a(n) for n=1..1000

Mathematica

Prime[ Select[ Range[5500], PrimitiveRoot[ Prime[ # ] ] == 14 & ] ]
(* or *)
Select[ Prime@Range@5500, PrimitiveRoot@# == 14 &] (* Robert G. Wilson v, May 11 2001 *)

Crossrefs

Cf. A001918, A001126, A019342.

Sequence in context: A298910 A256075 A351673 * A023062 A035046 A282357

Adjacent sequences: A061324 A061325 A061326 * A061328 A061329 A061330

Keyword

nonn

Author

Klaus Brockhaus, Apr 24 2001

Status

approved