|
Search: id:A156074
|
|
|
| A156074 |
|
A triangular sequence: t(n,m)=3 + Prime[n + 1] - Prime[m + 1] - Prime[n - m + 1]. |
|
+0
1
|
|
| 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 4, 4, 4, 1, 1, 2, 4, 4, 2, 1, 1, 4, 4, 6, 4, 4, 1, 1, 2, 4, 4, 4, 4, 2, 1, 1, 4, 4, 6, 4, 6, 4, 4, 1, 1, 6, 8, 8, 8, 8, 8, 8, 6, 1, 1, 2, 6, 8, 6, 8, 6, 8, 6, 2, 1
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 4, 6, 14, 14, 24, 22, 34, 62, 54,...}
|
|
FORMULA
|
t(n,m)=3 + Prime[n + 1] - Prime[m + 1] - Prime[n - m + 1].
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 2, 1},
{1, 2, 2, 1},
{1, 4, 4, 4, 1},
{1, 2, 4, 4, 2, 1},
{1, 4, 4, 6, 4, 4, 1},
{1, 2, 4, 4, 4, 4, 2, 1},
{1, 4, 4, 6, 4, 6, 4, 4, 1},
{1, 6, 8, 8, 8, 8, 8, 8, 6, 1},
{1, 2, 6, 8, 6, 8, 6, 8, 6, 2, 1}
|
|
MATHEMATICA
|
t[n_, m_] = 3 + Prime[n + 1] - Prime[m + 1] - Prime[n - m + 1];
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A071201 A106476 A101566 this_sequence A051287 A049705 A060236
Adjacent sequences: A156071 A156072 A156073 this_sequence A156075 A156076 A156077
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 03 2009
|
|
|
Search completed in 0.002 seconds
|
