|
%I #12 Mar 11 2024 18:25:56
%S 1,2,3,4,5,320,1936,2761,3421,3732,4043,4354,1697296,2121620,2970268,
%T 3076349,5222639,8979475,41657517,63095140,110416495,488553143,
%U 646839439,1066194997,1209597525,1803581465,1861934400,2019744271,2691271467,2842031031,3052726590,7100897730,10806417998
%N Numbers equal to the determinant of a circulant matrix based on the base-6 digits of n.
%C Base 6 variant of A219327. See A303367 .. A303369 for other bases.
%e 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].
%t 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 *)
%o (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","))
%Y Cf. A303367 (base 7), A303368 (base 8), A303369 (base 9), A219327 (base 10).
%K nonn,base
%O 1,2
%A _M. F. Hasler_, May 05 2018
%E a(13)-a(33) from _Giovanni Resta_, May 07 2018
|
