A179074 A179072 for p == 1 (mod 4).

-2, -32, 256, -8192, -262144, 5242880, -33554432, -2684354560, 8589934592000, 932385860354048, 160159261748363264, -1125899906842624, -225179981368524800, 5260204364768739328, 43977037871723571052544

Offset: 1

Author

Jonathan Sondow and Wadim Zudilin, Jun 29 2010

Keywords

• sign

Comments

It appears that a(n) is even.

Crossrefs

Cf. A179071, A179072, A179073.

Programs

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 *)