|
Search: id:A141687
|
|
|
| A141687 |
|
Triangle read by rows: t(n,m) = 1 - Mod[(Prime[n] - Prime[m])/2, 2]. |
|
+0
1
|
|
| 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0
(list; table; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Row sums are: {1, 1, 2, 3, 2, 3, 4, 5, 4, 6, 5, ...}.
|
|
EXAMPLE
|
{1},
{0, 1},
{1, 0, 1},
{1, 0, 1, 1},
{0, 1, 0, 0, 1},
{0, 1, 0, 0, 1, 1},
{1, 0, 1, 1, 0, 0, 1},
{1, 0, 1, 1, 0, 0, 1, 1},
{0, 1, 0, 0, 1, 1, 0, 0, 1},
{1, 0, 1, 1, 0, 0, 1, 1, 0, 1},
{0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1}
|
|
MATHEMATICA
|
Table[Table[1 - Mod[(Prime[n] - Prime[m])/2, 2], {m, 2, n}], {n, 2, 12}]; Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A005614 A071036 A166946 this_sequence A057078 A127245 A088150
Adjacent sequences: A141684 A141685 A141686 this_sequence A141688 A141689 A141690
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Roger L. Bagula, Gary W. Adamson and Mats Granvik (rlbagulatftn(AT)yahoo.com), Sep 09 2008
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 13 2008
|
|
|
Search completed in 0.002 seconds
|
