OFFSET
1,3
COMMENTS
Generally, row n of the array is the binomial transform for 0, 1, n, 2n-1, 3n-2, 4n-3, ...
FORMULA
EXAMPLE
To the first row, add the terms 0, 1, 5, 17, 49, 129, ... as indicated:
1, 3, 7, 15, 31, 63, ...
0, 1, 5, 17, 49, 129, ... (getting row 2 of the array:
1, 4, 12, 32, 80, 192, ... (= A001787, binomial transform for 1,2,3, ...)
Repeat the operation, getting the following array T(n,k):
1, 3, 7, 15, 31, 63, ...
1, 4, 12, 32, 80, 192, ...
1, 5, 17, 49, 129, 321, ...
1, 6, 22, 66, 178, 450, ...
MAPLE
A000337 := proc(n)
1+(n-1)*2^n ;
end proc:
A104746 := proc(n, k)
option remember;
if n= 1 then
2^k-1 ;
else
procname(n-1, k)+A000337(k-1) ;
end if;
end proc:
for d from 1 to 12 do
for k from 1 to d do
n := d-k+1 ;
printf("%d, ", A104746(n, k)) ;
end do:
end do; # R. J. Mathar, Oct 30 2011
MATHEMATICA
A000337[n_] := (n - 1)*2^n + 1;
T[1, k_] := 2^k - 1;
T[n_, k_] := T[n, k] = T[n - 1, k] + A000337[k - 1];
Table[T[n - k + 1, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Jean-François Alcover, Mar 30 2024 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Mar 23 2005
EXTENSIONS
Terms corrected by R. J. Mathar, Oct 30 2011
STATUS
approved