|
%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
|
