%I #9 Dec 09 2020 21:15:43
%S 2,3,7,3,11,5,29,7,19,19,23,11,53,13,31,31,103,17,191,19,43,43,47,23,
%T 101,103,109,83,59,29,311,31,67,67,71,71,149,37,79,79,83,41,173,43,
%U 181,137,283,47,197,149,103,103,107,53,331,167,229,173,709,59,367,61,127
%N If n is even, a(n) = smallest prime == -1 (mod n), If n is odd, a(n) = smallest prime == 1 (mod n).
%t Join[{2},With[{prs=Prime[Range[500]]},Flatten[Table[If[OddQ[n],Select[ prs,Mod[#,n] == 1&,1],Select[prs,Mod[#,n]==n-1&,1]],{n,70}]]]] (* _Harvey P. Dale_, Nov 16 2013 *)
%Y Cf. A034694, A038700, A086507.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Jul 29 2003
%E More terms from _David Wasserman_, Mar 09 2005