|
|
A158747
|
|
Triangle read by rows: T(n,m)=prime( 1+prime(n+1)-prime(m+1) ).
|
|
0
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
The row sums are {2, 5, 14, 31, 82, 115, 202, 255, 380, 607, 680,...}.
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Edited by the Associate Editors of the OEIS, Apr 22 2009
|
|
STATUS
|
approved
|
|
|
|