|
Search: id:A158747
|
|
|
| A158747 |
|
Triangle read by rows: T(n,m)=prime( 1+prime(n+1)-prime(m+1) ). |
|
+0
1
|
|
| 2, 3, 2, 7, 5, 2, 13, 11, 5, 2, 29, 23, 17, 11, 2, 37, 31, 23, 17, 5, 2, 53, 47, 41, 31, 17, 11, 2, 61, 59, 47, 41, 23, 17, 5, 2, 79, 73, 67, 59, 41, 31, 17, 11, 2, 107, 103, 97, 83, 67, 59, 41, 31, 17, 2, 113, 109, 103, 97, 73, 67, 47, 41, 23, 5, 2
(list; table; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
The row sums are {2, 5, 14, 31, 82, 115, 202, 255, 380, 607, 680,...}.
|
|
FORMULA
|
T(n,m)=A000040( 1+A000040(n+1)-A000040(m+1) ) = A000040(1+A086800(n,m)), 0<=n, 0<=m<=n.
|
|
EXAMPLE
|
{2},
{3, 2},
{7, 5, 2},
{13, 11, 5, 2},
{29, 23, 17, 11, 2},
{37, 31, 23, 17, 5, 2},
{53, 47, 41, 31, 17, 11, 2},
{61, 59, 47, 41, 23, 17, 5, 2},
{79, 73, 67, 59, 41, 31, 17, 11, 2},
{107, 103, 97, 83, 67, 59, 41, 31, 17, 2},
{113, 109, 103, 97, 73, 67, 47, 41, 23, 5, 2}
|
|
MATHEMATICA
|
Clear[t, n, m];
t[n_, m_] = Prime[Prime[n + 1] - Prime[m + 1] + 1];
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A144456 A051886 A118007 this_sequence A122697 A129022 A122076
Adjacent sequences: A158744 A158745 A158746 this_sequence A158748 A158749 A158750
|
|
KEYWORD
|
nonn,tabl,easy
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 25 2009
|
|
EXTENSIONS
|
Edited by the Associate Editors of the OEIS, Apr 22 2009
|
|
|
Search completed in 0.002 seconds
|
