TableForm[Table[JacobiSymbol[n, k], {n, 1, 17, 2}, {k, 16}],
 TableHeadings -> {ReplacePart[Range[1, 17, 2], 1 -> "n=1"],
   ReplacePart[Range[16], 1 -> "k=1"]}]