OFFSET
0,5
LINKS
Alois P. Heinz, Antidiagonals n = 0..140, flattened
EXAMPLE
Square array A(n,k) begins:
0, 0, 0, 0, 0, 0, 0, 0, 0, ...
1, 3, 6, 7, 12, 13, 14, 15, 24, ...
2, 10, 20, 22, 40, 42, 44, 46, 80, ...
3, 15, 30, 57, 60, 63, 114, 117, 120, ...
4, 36, 72, 76, 144, 148, 152, 156, 288, ...
5, 45, 90, 95, 180, 185, 190, 355, 360, ...
6, 54, 108, 210, 216, 222, 420, 426, 432, ...
7, 63, 126, 245, 252, 483, 490, 497, 504, ...
8, 136, 272, 280, 544, 552, 560, 568, 1088, ...
MAPLE
f:= proc(i, j) local r, h, k; r:=0; h:=0; k:=j;
while k>0 do r:=r+2^h*irem(k, 2, 'k'); h:=h+1 od; k:=i;
while k>0 do r:=r+2^h*irem(k, 2, 'k'); h:=h+1 od; r
end:
A:= (n, k)-> f(n, k*n):
seq(seq(A(n, d-n), n=0..d), d=0..14);
CROSSREFS
AUTHOR
Alois P. Heinz, Sep 04 2014
STATUS
approved