|
Search: id:A001123
|
|
|
| A001123 |
|
Primes with 3 as smallest primitive root.
(Formerly M4356 N1825)
|
|
+0
6
|
|
| 7, 17, 31, 43, 79, 89, 113, 127, 137, 199, 223, 233, 257, 281, 283, 331, 353, 401, 449, 463, 487, 521, 569, 571, 593, 607, 617, 631, 641, 691, 739, 751, 809, 811, 823, 857, 881, 929, 953, 977, 1013, 1039, 1049, 1063, 1087, 1097, 1193, 1217
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
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.
M. Kraitchik, Recherches sur la Th\'{e}orie des Nombres. Gauthiers-Villars, Paris, Vol. 1, 1924, Vol. 2, 1929, see Vol. 1, p. 57.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..1000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Index entries for primes by primitive root
|
|
MATHEMATICA
|
<< NumberTheory`NumberTheoryFunctions`; Prime[ Select[ Range[200], PrimitiveRoot[ Prime[ # ]] == 3 & ]]
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@200, PrimitiveRoot@# == 3 &] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 11 2001)
|
|
PROGRAM
|
(PARI) forprime(p=3, 1000, if(znprimroot(p)==3, print(p))).
(PARI) { n=0; forprime (p=3, 99999, if (znprimroot(p)==3, n++; write("b001123.txt", n, " ", p); if (n>=1000, break) ) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 14 2009]
|
|
CROSSREFS
|
Cf. A001122, A001124, etc.
Cf. A019334.
Sequence in context: A088566 A059845 A006142 this_sequence A094080 A046118 A120092
Adjacent sequences: A001120 A001121 A001122 this_sequence A001124 A001125 A001126
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com).
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), May 10 2001
|
|
|
Search completed in 0.002 seconds
|
