A061739 Primes with 37 as smallest positive primitive root.
36721, 51361, 63361, 97441, 129529, 132169, 171889, 190537, 201769, 314161, 333791, 343081, 387721, 422231, 493919, 496609, 515761, 529489, 532009, 532561, 557041, 596569, 600601, 618719, 619921, 628319, 629281, 631991, 662281, 663127
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..2900
Programs
-
Mathematica
Select[Prime[Range[100000]],PrimitiveRoot[#]==37&] (* Harvey P. Dale, Jul 18 2011 *)
Extensions
More terms from Robert G. Wilson v, May 11 2001