OFFSET
1,1
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2 since 2 is a quadratic nonresidue modulo prime(2) = 3.
a(2) = 3 since 3 is a quadratic nonresidue modulo prime(3) = 5.
MATHEMATICA
tab = {}; Do[If[JacobiSymbol[n, Prime[n]] == -1, tab = Append[tab, n]], {n, 140}]; tab
PROG
(PARI) isok(m) = kronecker(m, prime(m)) !=1; \\ Michel Marcus, Feb 06 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Feb 04 2020
STATUS
approved