|
Search: id:A120726
|
|
|
| A120726 |
|
Prime sum of cubes build up triangular array. |
|
+0
1
|
|
| 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; listen)
|
|
|
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 this_sequence A060203 A131880 A159842
Adjacent sequences: A120723 A120724 A120725 this_sequence A120727 A120728 A120729
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 18 2006
|
|
|
Search completed in 0.002 seconds
|
