|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A076986 A069786 A128804 * A060203 A131880 A159842
Adjacent sequences: A120723 A120724 A120725 * A120727 A120728 A120729
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 18 2006
|
| |
|
|
