|
| |
|
|
A147972
|
|
Smallest prime p modulo which the first n primes are non-zero quadratic residues.
|
|
1
| |
|
|
7, 23, 71, 311, 479, 1559, 5711, 10559, 18191, 31391, 366791, 366791, 366791, 3818929, 9257329, 22000801, 36415991, 48473881, 120293879, 120293879, 131486759, 131486759, 2929911599, 2929911599, 7979490791
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| The same primes without repetitions are listed in A147970. a(n) <= min{A002223(n),A002224(n)}. What is the smallest n for which this inequality is strict?
|
|
|
MATHEMATICA
| (*version 7.0*)m=1; P=7; Lst={p}; While[m<25, m++; S=Prime[Range[m]]; While[MemberQ[JacobiSymbol[S, p], -1], p=NextPrime[p]]; Lst=Append[Lst, P]]; Lst (* Emmanuel Vantieghem, Jan 31 2012 *)
|
|
|
PROG
| (PARI) t=2; forprime(p=2, 1e9, forprime(q=2, t, if(kronecker(q, p)<1, next(2))); print1(p", "); t=nextprime(t+1); p--) \\ Charles R Greathouse IV, Jan 31 2012
|
|
|
CROSSREFS
| Cf. A000229, A002223, A002224, A045535, A053760, A133435, A147969, A147970, A147971.
Sequence in context: A198644 A045535 A001984 * A002223 A034563 A048539
Adjacent sequences: A147969 A147970 A147971 * A147973 A147974 A147975
|
|
|
KEYWORD
| nonn,changed
|
|
|
AUTHOR
| Max Alekseyev (maxale(AT)gmail.com), Nov 18 2008
|
|
|
EXTENSIONS
| Terms a(23)-a(25) from Emmanuel Vantieghem, Jan 31 2012
|
| |
|
|
