

A219325


Positive integers n that are equal to the determinant of the circulant matrix formed by the binary digits of n.


6




OFFSET

1,2


LINKS



EXAMPLE

Binary digits of 17298 are [1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0]. The 15 X 15 circulant matrix formed by their circular right rotations has determinant equal to 17298.


MATHEMATICA

dcmQ[n_]:=Module[{idn2=IntegerDigits[n, 2]}, Det[Table[RotateRight[idn2, k], {k, Length[idn2]}]]==n]; Select[Range[3*10^6], dcmQ] (* This program generates the first 6 terms of the sequence. To generate a(7) and a(8), increase the Range constant to 3451*10^7, but the program will take a long time to run. *) (* Harvey P. Dale, Jul 30 2019 *)


CROSSREFS

Cf. A219324 (decimal version) provides references and more details.


KEYWORD

base,nonn,nice,more


AUTHOR



EXTENSIONS



STATUS

approved



