A119498 Consider the sign of A067276: determinant of n X n matrix containing the first n^2 primes in increasing order; then a(n) = 0 if negative and 1 if positive.

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1

Offset: 1

Author

Robert G. Wilson v, May 26 2006

Keywords

• nonn

Comments

The determinant of A can never be 0 since there is an even prime in the mix.

Conjecture: This sequence never cycles.

Positions where the race between the zeros and the ones is tied: 2,4,16,34,36,38,40,42,46,66,78,80,82,84, ...,.

Crossrefs

Cf. A000040, A067276.

Programs

Mathematica

f[n_] := Sign@ Det@ Partition[ Array[Prime, n^2], n]; Array[f, 105] /. -1 -> 0