OFFSET
2,1
COMMENTS
In terms of the Legendre symbol (a|p), this sequence can be described as the least number k such that (k|prime(n))=-1 and (k|prime(i))=1 for i=2,..,n-1. Note that a(n) <= A096636(n).
MATHEMATICA
nn=23; a=Table[0, {nn}]; n=0; done=False; While[ !done, n++; i=2; While[i<nn+2 && JacobiSymbol[n, Prime[i]]==1, i++ ]; If[i>=2 && i<=nn+2 && JacobiSymbol[n, Prime[i]]==-1 && a[[i-1]]==0, a[[i-1]]=n; done=(Times@@a>0)]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Sep 02 2005
STATUS
approved