login
A141687
Triangle read by rows: t(n,m) = 1 - ((prime(n) - prime(m))/2 mod 2).
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
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: A166946 A144612 A174208 * A305385 A260190 A260192
KEYWORD
nonn,tabl
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Sep 13 2008
STATUS
approved