

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.


5



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, 29, 22, 15, 17, 30, 27, 44, 37, 30, 23, 24, 19, 34, 31, 52, 45, 38, 31, 40, 25, 21, 38, 35, 60, 53, 46, 39, 56, 41, 26, 23, 42, 39, 68, 61, 54, 47, 72, 57, 42, 27, 25, 46, 43, 76, 69
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..11325, (antidiagonals 1 <= n <= 150, flattened.)


EXAMPLE

Rows 1 through 5 written in binary (with a "" between n and m written in binary):
11, 110, 111, 1100, 1101,...
101, 1010, 1011, 10100, 10101,...
111, 1110, 1111, 11100, 11101,...
1001, 10010, 10011, 100100, 100101,...
1011, 10110, 10111, 101100, 101101,...
Ignore the "" in each binary number to get the binary equivalent of the terms in the table.


MAPLE

A163621 := proc(n, m) L := [op(convert(m, base, 2) ), op(convert(n, base, 2) ) ] ; add(op(i, L)*2^(i1), i=1..nops(L)) ; end: seq(seq(A163621(dm+1, m), m=1..d), d=1..17) ; # R. J. Mathar, Sep 27 2009


MATHEMATICA

Table[FromDigits[Join @@ IntegerDigits[{#, m}, 2], 2] &[k  m + 1], {k, 12}, {m, k}] // Flatten (* Michael De Vlieger, Dec 26 2019 *)


CROSSREFS

Sequence in context: A247454 A243912 A242883 * A124194 A055597 A053048
Adjacent sequences: A163618 A163619 A163620 * A163622 A163623 A163624


KEYWORD

base,nonn,tabl


AUTHOR

Leroy Quet, Aug 01 2009


EXTENSIONS

Extended by R. J. Mathar, Sep 27 2009


STATUS

approved



