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,1

Links

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

Mathematica

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

Crossrefs

Cf. A001918, A001126, A019363.

Sequence in context: A092008 A190384 A217692 * A184094 A345621 A346339

Adjacent sequences: A061737 A061738 A061739 * A061741 A061742 A061743

Keyword

nonn

Author

Klaus Brockhaus, May 06 2001

Extensions

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

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

Status

approved