login
A120726
Prime sum of cubes build up triangular array.
0
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
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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Aug 18 2006
STATUS
approved