3 lines
162 B
Text
3 lines
162 B
Text
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"]}]
|