A061740 Primes with 38 as smallest positive primitive root.

55441, 138889, 343561, 441169, 469561, 497351, 555361, 560641, 695809, 740041, 803591, 844321, 851041, 857471, 997751, 1016401, 1071841, 1171801, 1180537, 1220041, 1423969, 1425601, 1495561, 1506121, 1714441, 1740649, 1747201, 1795369, 1842481, 1849681, 1858081

Offset: 1

Author

Klaus Brockhaus, May 06 2001

Keywords

• nonn

Links

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

Crossrefs

Cf. A001918, A001126, A019363.

Programs

Mathematica

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

Extensions

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

a(21)-a(30) from Vincenzo Librandi, Sep 22 2013