A061740 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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