|
| |
|
|
A120725
|
|
Prime sum of squared build up triangular array.
|
|
0
| |
|
|
2, 3, 9, 5, 11, 35, 7, 13, 37, 11, 17, 41, 95, 13, 19, 43, 97, 17, 23, 47, 101, 197, 19, 25, 49, 103, 199, 23, 29, 53, 107, 203, 29, 35, 59, 113, 209
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n,m) = Prime[m] + 6*Sum[i^2, {i, 1, n}]
|
|
|
EXAMPLE
| 2
3, 9
5, 11, 35
7, 13, 37
11, 17, 41, 95
13, 19, 43, 97
17, 23, 47, 101, 197
19, 25, 49, 103, 199
23, 29, 53, 107, 203
29, 35, 59, 113, 209
|
|
|
MATHEMATICA
| t[n_, m_] = Prime[m] + 6*Sum[i^2, {i, 1, n}] a = Table[Table[t[n, m], {n, 0, PrimePi[m]}], {m, 1, 10}] Flatten[a]
|
|
|
CROSSREFS
| Sequence in context: A065631 A176570 A083173 * A109607 A127612 A038756
Adjacent sequences: A120722 A120723 A120724 * A120726 A120727 A120728
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 18 2006
|
| |
|
|
