cp's OEIS Frontend

A163621 Square array read by antidiagonals: Write n and m in binary with n on the left. Concatenate. a(n,m) is the decimal equivalent of the result.

%I A163621 #21 Feb 06 2020 01:03:48
%S A163621 3,5,6,7,10,7,9,14,11,12,11,18,15,20,13,13,22,19,28,21,14,15,26,23,36,
%T A163621 29,22,15,17,30,27,44,37,30,23,24,19,34,31,52,45,38,31,40,25,21,38,35,
%U A163621 60,53,46,39,56,41,26,23,42,39,68,61,54,47,72,57,42,27,25,46,43,76,69
%N A163621 Square array read by antidiagonals: Write n and m in binary with n on the left. Concatenate. a(n,m) is the decimal equivalent of the result.
%H A163621 Michael De Vlieger, <a href="/A163621/b163621.txt">Table of n, a(n) for n = 1..11325</a>, (antidiagonals 1 <= n <= 150, flattened.)
%e A163621 Rows 1 through 5 written in binary (with a "|" between n and m written in binary):
%e A163621 1|1, 1|10, 1|11, 1|100, 1|101,...
%e A163621 10|1, 10|10, 10|11, 10|100, 10|101,...
%e A163621 11|1, 11|10, 11|11, 11|100, 11|101,...
%e A163621 100|1, 100|10, 100|11, 100|100, 100|101,...
%e A163621 101|1, 101|10, 101|11, 101|100, 101|101,...
%e A163621 Ignore the "|" in each binary number to get the binary equivalent of the terms in the table.
%p A163621 A163621 := proc(n,m) L := [op(convert(m,base,2) ), op(convert(n,base,2) ) ] ; add(op(i,L)*2^(i-1),i=1..nops(L)) ; end: seq(seq(A163621(d-m+1,m),m=1..d),d=1..17) ; # _R. J. Mathar_, Sep 27 2009
%t A163621 Table[FromDigits[Join @@ IntegerDigits[{#, m}, 2], 2] &[k - m + 1], {k, 12}, {m, k}] // Flatten (* _Michael De Vlieger_, Dec 26 2019 *)
%K A163621 base,nonn,tabl
%O A163621 1,1
%A A163621 _Leroy Quet_, Aug 01 2009
%E A163621 Extended by _R. J. Mathar_, Sep 27 2009