%I #10 Apr 30 2024 14:48:42
%S 0,0,0,0,0,0,0,1,1,0,0,1,0,1,0,0,0,1,1,0,0,0,0,3,2,3,0,0,0,1,4,3,3,4,
%T 1,0,0,1,3,4,0,4,3,1,0,0,0,4,4,0,0,4,4,0,0,0,0,0,5,3,0,3,5,0,0,0,0,1,
%U 1,0,3,4,4,3,0,1,1,0,0,1,0,1,9,4,6,4,9,1,0,1,0
%N Square array A(n, k), n, k >= 0, read by upwards antidiagonals; for any n, k >= 0 with respective binary expansions Sum_{i >= 0} b_i * 2^i and Sum_{i >= 0} c_i * 2^i, A(n, k) = Sum_{i >= 0} (b_{i+1} * c_i + b_i * c_{i+1}) * 3^i.
%C The digits in the ternary expansion of A(n, k) correspond to permanents of 2 X 2 matrices made up of binary digits of n and k.
%H Rémy Sigrist, <a href="/A372345/b372345.txt">Table of n, a(n) for n = 0..10010</a>
%H Rémy Sigrist, <a href="/A372345/a372345.png">Scatterplot of (n, k) such that A(n, k) = 0 and n, k <= 2^10</a>
%F A(k, n) = A(n, k).
%e Array A(n, k) begins:
%e n\k | 0 1 2 3 4 5 6 7 8 9 10
%e ----+--------------------------------------
%e 0 | 0 0 0 0 0 0 0 0 0 0 0
%e 1 | 0 0 1 1 0 0 1 1 0 0 1
%e 2 | 0 1 0 1 3 4 3 4 0 1 0
%e 3 | 0 1 1 2 3 4 4 5 0 1 1
%e 4 | 0 0 3 3 0 0 3 3 9 9 12
%e 5 | 0 0 4 4 0 0 4 4 9 9 13
%e 6 | 0 1 3 4 3 4 6 7 9 10 12
%e 7 | 0 1 4 5 3 4 7 8 9 10 13
%e 8 | 0 0 0 0 9 9 9 9 0 0 0
%e 9 | 0 0 1 1 9 9 10 10 0 0 1
%e 10 | 0 1 0 1 12 13 12 13 0 1 0
%o (PARI) A(n, k) = { my (v = 0, t = 1); while (n && k, v += (bittest(n, 1)*bittest(k, 0) + bittest(n, 0)*bittest(k, 1)) * t; n \= 2; k \= 2; t *= 3;); return (v); }
%Y See A372344 for a similar sequence.
%K nonn,base,tabl
%O 0,24
%A _Rémy Sigrist_, Apr 28 2024
|