proposed
approved
proposed
approved
editing
proposed
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 *)
approved
editing
Jonathan Sondow and _Wadim Zudilin (wzudilin(AT)gmail.com), _, Jun 29 2010
_Jonathan Sondow (jsondow(AT)alumni.princeton.edu) _ and Wadim Zudilin (wzudilin(AT)gmail.com), Jun 29 2010
A179072 for p == 1 (mod 4).
-2, -32, 256, -8192, -262144, 5242880, -33554432, -2684354560, 8589934592000, 932385860354048, 160159261748363264, -1125899906842624, -225179981368524800, 5260204364768739328, 43977037871723571052544
1,1
It appears that a(n) is even.
sign,new
Jonathan Sondow (jsondow(AT)alumni.princeton.edu) and Wadim Zudilin (wzudilin(AT)gmail.com), Jun 29 2010
approved