1,1

Table of n, a(n) for n=1..100.

f[n_] := Block[{k = 2}, While[ JacobiSymbol[n, Prime[k]] == 1, k++ ]; Prime[k]]; f /@ Select[ Prime[ Range[435]], Mod[ #, 8] == 3 &]

Sequence in context: A085870 A332463 A324573 * A175482 A318261 A118362

Adjacent sequences: A096630 A096631 A096632 * A096634 A096635 A096636

nonn

Robert G. Wilson v, Jun 24 2004

approved