A127872 Triangle formed by reading A039599 mod 2.
1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1
Offset: 0
Examples
Triangle begins: 1; 1, 1; 0, 1, 1; 1, 1, 1, 1; 0, 0, 0, 1, 1; 0, 0, 1, 1, 1, 1; 0, 1, 1, 0, 0, 1, 1; 1, 1, 1, 1, 1, 1, 1, 1; 0, 0, 0, 0, 0, 0, 0, 1, 1; 0, 0, 0, 0, 0, 0, 1, 1, 1, 1; 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1; 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1; 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1; 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1; 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1; 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1; ...
Links
- G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
Crossrefs
Programs
-
Mathematica
T[0, 0] := 1; T[n_, k_] := Binomial[2*n - 1, n - k] - Binomial[2*n - 1, n - k - 2]; Table[Mod[T[n, k], 2], {n,0,10}, {k,0,n}] // Flatten (* G. C. Greubel, Apr 18 2017 *)
Comments