A114661 Primes with 44 as smallest positive primitive root.

71761, 346441, 380881, 1613641, 2842291, 3782521, 3878401, 5355841, 5393761, 5585161, 6199321, 8596561, 9800281, 11403961, 12205321, 13011121, 14437081, 14672341, 14844001, 16254019, 16331641, 16350721, 16523641, 19611481, 20507761, 20749681, 21456481

Offset: 1

Author

Robert G. Wilson v, Dec 21 2005

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@1310000, PrimitiveRoot@# == 44 &]
Select[Prime[Range[1250000]],PrimitiveRoot[#]==44&] (* PrimitiveRoot is now part of Mathematica's core language so there is no longer any need to load NumberTheoryFunctions first *) (* Harvey P. Dale, May 16 2016 *)

Extensions

a(25)-a(27) from Robert Price, Nov 19 2023