A061736 Primes with 33 as smallest positive primitive root.

268969, 275263, 316681, 492911, 514081, 536311, 546361, 553561, 579961, 586009, 641761, 674831, 744721, 798481, 827461, 834961, 1021561, 1023409, 1063609, 1083319, 1102921, 1117321, 1122241, 1190951, 1246561, 1270561

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A001918, A001126, A019359.

Sequence in context: A235821 A203793 A231197 * A124946 A203940 A139028

Adjacent sequences: A061733 A061734 A061735 * A061737 A061738 A061739

Keyword

nonn

Author

Klaus Brockhaus, May 06 2001

Extensions

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

Status

approved