login
Primes with 6 as smallest primitive root.
(Formerly M5275 N2293)
4

%I M5275 N2293 #31 May 08 2018 15:11:53

%S 41,109,151,229,251,271,367,733,761,971,991,1069,1289,1303,1429,1471,

%T 1759,1789,1811,1879,2411,2441,2551,2749,2791,3061,3079,3109,3229,

%U 3251,3301,3319,3967,4211,4549,4721,4783,4909,4931,4951,5101,5167,5581,5791

%N Primes with 6 as smallest primitive root.

%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 864.

%D M. Kraitchik, Recherches sur la Théorie des Nombres. Gauthiers-Villars, Paris, Vol. 1, 1924, Vol. 2, 1929, see Vol. 1, p. 11.

%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%H T. D. Noe, <a href="/A001125/b001125.txt">Table of n, a(n) for n = 1..1000</a>

%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

%H <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>

%t Prime[ Select[ Range[1000], PrimitiveRoot[ Prime[ # ] ] == 6 & ] ]

%t (* or *)

%t Select[ Prime@Range@760, PrimitiveRoot@# == 6 &] (* _Robert G. Wilson v_, May 11 2001 *)

%Y Cf. A001122, A001123, A001124, etc.

%K nonn

%O 1,1

%A _N. J. A. Sloane_

%E More terms from _Robert G. Wilson v_, May 10 2001