login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A114661
Primes with 44 as smallest positive primitive root.
1
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,1
LINKS
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 *)
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(25)-a(27) from Robert Price, Nov 19 2023
STATUS
approved