This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A114661 #10 Nov 20 2023 00:03:35 %S A114661 71761,346441,380881,1613641,2842291,3782521,3878401,5355841,5393761, %T A114661 5585161,6199321,8596561,9800281,11403961,12205321,13011121,14437081, %U A114661 14672341,14844001,16254019,16331641,16350721,16523641,19611481,20507761,20749681,21456481 %N A114661 Primes with 44 as smallest positive primitive root. %H A114661 Robert Price, <a href="/A114661/b114661.txt">Table of n, a(n) for n = 1..1936</a> %t A114661 (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@1310000, PrimitiveRoot@# == 44 &] %t A114661 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 *) %Y A114661 Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686. %K A114661 nonn %O A114661 1,1 %A A114661 _Robert G. Wilson v_, Dec 21 2005 %E A114661 a(25)-a(27) from _Robert Price_, Nov 19 2023