A114685 Primes with 70 as smallest positive primitive root.

5620201, 137084401, 261429481, 319917841, 463954921, 490203481, 533231641, 549100081, 574690801, 600595381, 633627721, 644868481, 647913601, 704247361, 713084641, 722120881, 874850161, 916971961, 918152161, 1030871161, 1056236833, 1062355369, 1096459321

Offset

1,1

Links

Robert Price, Table of n, a(n) for n = 1..2025

Mathematica

(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 70, AppendTo[t, n]; Print@Prime@n], {n, 53600000}]; Prime@t
Select[Prime[Range[524*10^5]], PrimitiveRoot[#, 1]==70&] (* Harvey P. Dale, Jun 22 2021 *)

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Sequence in context: A022210 A057882 A210163 * A234174 A258536 A258529

Adjacent sequences: A114682 A114683 A114684 * A114686 A114687 A114688

Keyword

nonn,changed

Author

Robert G. Wilson v, Dec 21 2005

Extensions

a(21)-a(23) from Robert Price, Nov 26 2023

Status

approved