A303366 Numbers equal to the determinant of a circulant matrix based on the base-6 digits of n.
1, 2, 3, 4, 5, 320, 1936, 2761, 3421, 3732, 4043, 4354, 1697296, 2121620, 2970268, 3076349, 5222639, 8979475, 41657517, 63095140, 110416495, 488553143, 646839439, 1066194997, 1209597525, 1803581465, 1861934400, 2019744271, 2691271467, 2842031031, 3052726590, 7100897730, 10806417998
Offset: 1
Examples
320 is in the sequence because 320 = 1252[6] (in base 6) and 320 = det [1,2,5,2; 2,1,2,5; 5,2,1,2; 2,5,2,1].
Programs
-
Mathematica
Select[Range[5000],#==Det[NestList[RotateRight,IntegerDigits[#,6],IntegerLength[#,6]-1]]&] (* The program generates the first 12 terms of the sequence. *) (* Harvey P. Dale, Mar 11 2024 *)
-
PARI
(c(v)=abs(matdet(matrix(#v,#v,i,j,v[(j-i)%#v+1]))));for(n=1,oo,n==c(digits(n,6))&&print1(n","))
Extensions
a(13)-a(33) from Giovanni Resta, May 07 2018
Comments