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.

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

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):
1|1, 1|10, 1|11, 1|100, 1|101,...
10|1, 10|10, 10|11, 10|100, 10|101,...
11|1, 11|10, 11|11, 11|100, 11|101,...
100|1, 100|10, 100|11, 100|100, 100|101,...
101|1, 101|10, 101|11, 101|100, 101|101,...
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^(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

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 A359506 A055597

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