|
| |
|
|
A141687
|
|
Triangle read by rows: t(n,m) = 1 - Mod[(Prime[n] - Prime[m])/2, 2].
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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 A166946 A174208 * A204418 A057078 A127245
Adjacent sequences: A141684 A141685 A141686 * 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
|
| |
|
|
