|
%I M4353 N1823
%S 7,17,19,23,29,47,59,61,97,109,113,131,149,167,179,181,193,223,229,
%T 233,257,263,269,313,337,367,379,383,389,419,433,461,487,491,499,503,
%U 509,541,571,577,593,619,647,659,701,709,727,743,811,821,823,857,863,887,937,941
%N Full reptend primes: primes with primitive root 10.
%C Primes p such that the decimal expansion of 1/p has period p-1, which is the greatest period possible for any integer.
%C Primes p such that the corresponding entry in A002371 is p-1.
%C Pieter Moree writes (Oct 20 2004): Assuming the Generalized Riemann Hypothesis it can be shown that the density of primes p such that a prescribed integer g has order (p-1)/t, with t fixed exists and, moreover, it can be computed. This density will be a rational number times the so called Artin constant. For 2 and 10 the density of primitive roots is A, the Artin constant itself.
%C R. K. Guy writes (Oct 20 2004): MR 2004j:11141 speaks of the unearthing by Lenstra & Stevenhagen of correspondence concerning the density of this sequence between the Lehmers & Artin.
%C Also called long period primes, long primes or maximal period primes.
%C The base 10 cyclic numbers A180340, (b^(p-1) - 1) / p, with b = 10, are obtained from the full reptend primes p. - _Daniel Forgues_, Dec 17 2012
%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 Albert H. Beiler, Recreations in the Theory of Numbers, 2nd ed. New York: Dover, 1966, pages 65, 309.
%D John H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, p. 161.
%D C. F. Gauss, Disquisitiones Arithmeticae, Yale, 1965; see p. 380.
%D L. J. Goldstein, Density questions in algebraic number theory, Amer. Math. Monthly, 78 (1971), 342-349.
%D G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers. 3rd ed., Oxford Univ. Press, 1954, p. 115.
%D M. Kraitchik, Recherches sur la Th\'{e}orie des Nombres. Gauthiers-Villars, Paris, Vol. 1, 1924, Vol. 2, 1929, see Vol. 1, p. 61.
%D H. Rademacher and O. Toeplitz, Von Zahlen und Figuren (Springer 1930, reprinted 1968), Ch. 19, 'Die periodischen Dezimalbrueche'.
%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 Robert Israel, <a href="/A001913/b001913.txt">Table of n, a(n) for n = 1..10000</a>
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.nrbook.com/abramowitz_and_stegun/">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%H B. Chanco, <a href="http://bchanco.free.fr/frp/ArtinIntro.html">Full Reptend Prime</a>
%H Pieter Moree, <a href="http://turing.wins.uva.nl/~moree/varia.htm">Artin's primitive root conjecture - a survey</a>
%H OEIS Wiki, <a href="/wiki/Full_reptend_primes">Full reptend primes</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CyclicNumber.html">Cyclic Number.</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DecimalExpansion.html">Decimal Expansion.</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FullReptendPrime.html">Full Reptend Prime.</a>
%H D. Williams, <a href="http://www.louisville.edu/~dawill03/crypto/Primitive.html">Primitive Roots (Check)</a>
%H <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>
%H <a href="/index/1#1overn">Index entries for sequences related to decimal expansion of 1/n</a>
%e 7 is in the sequence because 1/7 = 0.142857142857... and the length of the period = 7-1 = 6.
%p A001913 := proc(n) local st, period:
%p st := ithprime(n):
%p period := numtheory[order](10,st):
%p if (st-1 = period) then
%p RETURN(st):
%p fi: end: seq(A001913(n), n=1..200); # - Jani Melik, Feb 25 2011
%t pr=10; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%o (PARI) forprime(p=7,1e3,if(znorder(Mod(10,p))+1==p,print1(p", "))) \\ _Charles R Greathouse IV_, Feb 27 2011
%Y Apart from initial term, identical to A006883.
%Y Other definitions of cyclic numbers: A003277, A001914.
%Y Cf. A005596, A001122, A048296.
%Y Cf. A180340 (cyclic numbers).
%K nonn,easy,nice,changed
%O 1,1
%A _N. J. A. Sloane_.
|
