OFFSET
0,1
COMMENTS
Same as smallest prime p such that the Legendre symbol (q|p) = 1 for the first n odd primes q = prime(k+1), k = 1, 2, ..., n, and (q|p) = -1 for q = prime(n+2).
MATHEMATICA
f[n_] := Block[{k = 2}, While[JacobiSymbol[Prime[k], n] == 1, k++]; Prime[k]]; nn = 15; t = Table[0, {nn}]; t[[1]] = 1; n = 2; While[Min[t] == 0, n++; p = Prime[n]; a = f[p]; ppa = PrimePi[a]; If[ppa <= nn && t[[ppa]] == 0, t[[ppa]] = p]]; Rest[t]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 06 2013
EXTENSIONS
Simpler definition from Jonathan Sondow, Mar 06 2013
STATUS
approved