OFFSET
1,2
LINKS
Giovanni Resta, Illustration of a(8)
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
KEYWORD
base,nonn,nice,more
AUTHOR
Max Alekseyev, Nov 17 2012
EXTENSIONS
a(7) from Hans Havermann and Emmanuel Vantieghem, Nov 19 2012
a(8) from Giovanni Resta, Dec 14 2012
STATUS
approved