|
|
A166976
|
|
Array of A002450 in the top row and higher-order differences in subsequent rows, read by antidiagonals.
|
|
1
|
|
|
0, 1, 1, 3, 4, 5, 9, 12, 16, 21, 27, 36, 48, 64, 85, 81, 108, 144, 192, 256, 341, 243, 324, 432, 576, 768, 1024, 1365, 729, 972, 1296, 1728, 2304, 3072, 4096, 5461, 2187, 2916, 3888, 5184, 6912, 9216, 12288, 16384, 21845, 6561
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
T(0,k) = A002450(k). T(n,k) = T(n-1,k+1) - T(n-1,k), n > 0.
|
|
EXAMPLE
|
The array starts:
0, 1, 5, 21, 85, 341,1365,5461,21845,87381,349525, A002450
1, 4, 16, 64, 256,1024,4096,16384,65536,262144,1048576, A000302
3, 12, 48, 192, 768,3072,12288,49152,196608,786432, A002001, A164346, A110594
|
|
MAPLE
|
A002450 := proc(n) (4^n-1)/3 ; end proc:
A166976 := proc(n, k) option remember; if n = 0 then A002450(k) else procname(n-1, k+1)-procname(n-1, k) ; end if; end proc: # R. J. Mathar, Jul 02 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|