|
| |
|
|
A120724
|
|
A prime gap as sum of integers triangular array.
|
|
0
| |
|
|
2, 3, 5, 5, 7, 11, 7, 9, 13, 11, 13, 17, 23, 13, 15, 19, 25, 17, 19, 23, 29, 37, 19, 21, 25, 31, 39, 23, 25, 29, 35, 43, 29, 31, 35, 41, 49
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n,m) = Prime[m] + 2*Sum[i, {i, 1, n}]
|
|
|
EXAMPLE
| 2
3, 5
5, 7, 11
7, 9, 13
11, 13, 17, 23
13, 15, 19, 25
17, 19, 23, 29, 37
19, 21, 25, 31, 39
23, 25, 29, 35, 43
29, 31, 35, 41, 49
|
|
|
MATHEMATICA
| t[n_, m_] := Prime[m] + 2*Sum[i, {i, 1, n}] a = Table[Table[t[n, m], {n, 0, PrimePi[m]}], {m, 1, 10}] Flatten[a]
|
|
|
CROSSREFS
| Sequence in context: A156899 A156898 A084754 * A117530 A094749 A096539
Adjacent sequences: A120721 A120722 A120723 * A120725 A120726 A120727
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 18 2006
|
| |
|
|
