|
| |
|
|
A084288
|
|
Anti-diagonal 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; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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]); print(s)); (Wasserman)
|
|
|
CROSSREFS
| Cf. A084287.
Sequence in context: A006003 A111385 A026101 * A083049 A015627 A156778
Adjacent sequences: A084285 A084286 A084287 * A084289 A084290 A084291
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul D. Hanna (pauldhanna(AT)juno.com), May 25 2003
|
|
|
EXTENSIONS
| Corrected and extended by David Wasserman (wasserma(AT)spawar.navy.mil), Dec 13 2004
|
| |
|
|
