A120726 Prime sum of cubes build up triangular array.

2, 3, 7, 5, 9, 41, 7, 11, 43, 11, 15, 47, 155, 13, 17, 49, 157, 17, 21, 53, 161, 417, 19, 23, 55, 163, 419, 23, 27, 59, 167, 423, 29, 33, 65, 173, 429

Offset

1,1

Links

Table of n, a(n) for n=1..37.

Formula

a(n,m) = Prime[m] + 4*Sum[i^3, {i, 1, n}]

Example

2
3, 7
5, 9, 41
7, 11, 43
11, 15, 47, 155
13, 17, 49, 157
17, 21, 53, 161, 417
19, 23, 55, 163, 419
23, 27, 59, 167, 423
29, 33, 65, 173, 429

Mathematica

t[n_, m_] = Prime[m] + 4*Sum[i^3, {i, 1, n}] a = Table[Table[t[n, m], {n, 0, PrimePi[m]}], {m, 1, 10}] Flatten[a]

Crossrefs

Sequence in context: A069786 A128804 A223702 * A060203 A131880 A045790

Adjacent sequences: A120723 A120724 A120725 * A120727 A120728 A120729

Keyword

nonn

Author

Roger L. Bagula, Aug 18 2006

Status

approved