|
|
A303366
|
|
Numbers equal to the determinant of a circulant matrix based on the base-6 digits of n.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
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].
|
|
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 *)
|
|
PROG
|
(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", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|