OFFSET
1,1
COMMENTS
It appears that a(n) is even.
MATHEMATICA
a72[p_] := Module[{k}, k = (p-1)/2; Det @ Table[JacobiSymbol[i+j, p], {i, 1, k}, {j, 1, k}]];
a72 /@ Select[Range[1, 201, 4], PrimeQ] (* Jean-François Alcover, Dec 05 2018 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Jonathan Sondow and Wadim Zudilin, Jun 29 2010
STATUS
approved