A114665 Primes with 48 as smallest positive primitive root.

823766851, 1203424471, 1647646771, 2539428211, 4100784871, 4492676371, 5183970931, 6326736151, 6330402751, 8251729531, 8735517211, 10570534171, 11212271071, 12478723111, 13609280431, 16631896051, 18781331911, 18884910871, 20211833071, 20568043471, 20572400551

Offset: 1

Author

Robert G. Wilson v, Dec 21 2005

Keywords

• nonn
• hard

Links

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

Crossrefs

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

Programs

Mathematica

t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 48, AppendTo[t, n]; Print@Prime@n], {n, 235000000}]; Prime@t

PARI

is(k) = isprime(k) && znprimroot(k)==48; \\ Jinyuan Wang, Apr 09 2025

Extensions

a(7)-a(13) from Ray Chandler, Jan 13 2006

a(14)-a(21) from Robert Price, Nov 25 2023