1,1

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

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

Sequence in context: A201752 A117126 A048997 * A021953 A171530 A266684

Adjacent sequences: A096632 A096633 A096634 * A096636 A096637 A096638

nonn

Robert G. Wilson v, Jun 24 2004

approved