OFFSET
1,1
COMMENTS
MATHEMATICA
Table[p = 2; While[Length[Select[Prime[Range[n]], JacobiSymbol[#, p] == -1 &]] < n, p = NextPrime[p]]; p, {n, 15}]
PROG
(PARI) q=2; forprime(k=3, 1e9, forprime(p=2, q, if(kronecker(p, k)>=0, next(2))); print1(k", "); q=nextprime(q+1); k--) \\ Charles R Greathouse IV, Oct 10 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, May 25 2011
EXTENSIONS
a(16)-a(30) from Charles R Greathouse IV, Oct 10 2011
STATUS
approved