cp's OEIS Frontend

A323486 Least number k such that the determinant of the circulant matrix formed by its decimal digits is equal to n*k.

%I A323486 #19 Jan 25 2024 14:30:58
%S A323486 1,10168,119700,196,1973082,63980523693,167037139360,1350720096,
%T A323486 1543479071,17239680,4000206089,219566358180,104171259465,2380649994,
%U A323486 113323907385,14059155927,19925280
%N A323486 Least number k such that the determinant of the circulant matrix formed by its decimal digits is equal to n*k.
%H A323486 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CirculantMatrix.html">Circulant Matrix</a>.
%H A323486 Wikipedia, <a href="https://en.wikipedia.org/wiki/Circulant_matrix">Circulant matrix</a>.
%e A323486       det | 1 | = 1 = 1*1.
%e A323486 .
%e A323486           | 1 0 1 6 8|
%e A323486           | 8 1 0 1 6|
%e A323486       det | 6 8 1 0 1| = 20336 = 2*10168.
%e A323486           | 1 6 8 1 0|
%e A323486           | 0 1 6 8 1|
%p A323486 with(linalg): P:=proc(q) local a,b,c,d,i,j,k,n,t;
%p A323486 for i from 1 to q do for n from 1 to q do
%p A323486 d:=ilog10(n)+1; a:=convert(n,base,10); c:=[];
%p A323486 for k from 1 to nops(a) do c:=[op(c),a[-k]]; od; t:=[op([]),c];
%p A323486 for k from 2 to d do b:=[op([]),c[nops(c)]]; for j from 1 to nops(c)-1 do
%p A323486 b:=[op(b),c[j]]; od;  c:=b; t:=[op(t),c]; od; if i*n=det(t) then
%p A323486 print(n); break; fi; od; od; end: P(10^7);
%Y A323486 Cf. A219324, A323485.
%K A323486 nonn,base,more
%O A323486 1,2
%A A323486 _Paolo P. Lava_, Jan 17 2019
%E A323486 a(6)-a(17) from _Giovanni Resta_, Jan 21 2019