OFFSET
1,1
MATHEMATICA
f[n_] := Block[{k = 2}, While[ JacobiSymbol[n, Prime[k]] == 1, k++ ]; Prime[k]]; f /@ Select[ Prime[ Range[435]], Mod[ #, 8] == 3 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 24 2004
STATUS
approved