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
KEYWORD
AUTHOR
Leroy Quet, Aug 01 2009
EXTENSIONS
Extended by R. J. Mathar, Sep 27 2009
STATUS
approved