A061732 Primes with 28 as smallest positive primitive root.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..590

Mathematica

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

Crossrefs

Cf. A001918, A001126, A019354.

Sequence in context: A344830 A015407 A204536 * A023046 A034213 A226112

Adjacent sequences: A061729 A061730 A061731 * A061733 A061734 A061735

Keyword

nonn

Author

Klaus Brockhaus, May 06 2001

Extensions

More terms from Robert G. Wilson v, May 11 2001

Status

approved