|
|
A084288
|
|
Antidiagonal sums of table A084287, in which the k-th row is the product of the k-th prime with the antidiagonals of the first k rows of the table.
|
|
1
|
|
|
1, 5, 15, 34, 68, 126, 222, 358, 609, 982, 1722, 2932, 5317, 9612, 18539, 34949, 68876, 134632, 267329, 528921, 1057402, 2103882, 4207541, 8398104, 16799430, 33566249, 67148298, 134231998, 268500559, 536897299, 1073860323, 2147505848
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
PROG
|
(PARI) A = matrix(50, 50); for (i = 1, 50, A[1, i] = 2^(i - 1)); for (j = 2, 50, count = 0; p = prime(j); for (d = 1, j, for (x = 1, d, y = d + 1 - x; count++; if (count <= 50, A[j, count] = p*A[x, y]))); d = j; while (count < 50, d++; for (x = 1, j, y = d + 1 - x; count++; if (count <= 50, A[j, count] = p*A[x, y])))); for (d = 1, 50, s = 0; for (y = 1, d, x = d + 1 - y; s += A[x, y]); print1(s, ", ")); \\ David Wasserman, Dec 13 2004
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|