|
Search: id:A157415
|
|
|
| A157415 |
|
Triangular sequence: t(n,m)=JacobiSymbol[Prime[n], Prime[m]] + JacobiSymbol[Prime[n], Prime[n - m + 2]]. |
|
+0
1
|
|
| 0, -1, -1, 1, -2, 1, -1, 2, 2, -1, 1, -2, -2, -2, 1, -1, 0, -2, -2, 0, -1, 1, 2, -2, -2, -2, 2, 1, -1, 0, 0, 2, 2, 0, 0, -1, -1, 2, 0, -2, 2, -2, 0, 2, -1, 1, 0, 0, 0, -2, -2, 0, 0, 0, 1
(list; table; graph; listen)
|
|
|
OFFSET
|
2,5
|
|
|
COMMENT
|
Row sums are:
{0, -2, 0, 2, -4, -6, 0, 2, 0, -2,...}
|
|
FORMULA
|
t(n,m)=JacobiSymbol[Prime[n], Prime[m]] + JacobiSymbol[Prime[n], Prime[n - m + 2]].
|
|
EXAMPLE
|
{0},
{-1, -1},
{1, -2, 1},
{-1, 2, 2, -1},
{1, -2, -2, -2, 1},
{-1, 0, -2, -2, 0, -1},
{1, 2, -2, -2, -2, 2, 1},
{-1, 0, 0, 2, 2, 0, 0, -1},
{-1, 2, 0, -2, 2, -2, 0, 2, -1},
{1, 0, 0, 0, -2, -2, 0, 0, 0, 1}
|
|
MATHEMATICA
|
Table[Table[JacobiSymbol[Prime[n], Prime[m]] + JacobiSymbol[Prime[n], Prime[n - m + 2]], {m, 2, n}], {n, 2, 11}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A112753 A023589 A134034 this_sequence A154325 A129765 A143187
Adjacent sequences: A157412 A157413 A157414 this_sequence A157416 A157417 A157418
|
|
KEYWORD
|
sign,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 28 2009
|
|
|
Search completed in 0.002 seconds
|
