OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 29 2003
EXTENSIONS
More terms from David Wasserman, Mar 09 2005
STATUS
approved