%I #16 Feb 09 2019 07:25:24
%S 1,1,1,1,0,1,1,2,2,1,1,1,1,1,1,1,0,1,1,0,1,1,2,2,0,2,2,1,1,1,1,0,0,1,
%T 1,1,1,0,1,0,0,0,1,0,1,1,2,2,2,0,0,2,2,2,1,1,1,1,2,2,0,2,2,1,1,1,1,0,
%U 1,2,0,2,2,0,2,1,0,1,1,2,2,1,1,1,1,1,1,1,2,2,1
%N Square array of Delannoy numbers D(i,j) mod 3 (i >= 0, j >= 0) read by antidiagonals.
%H Marko Razpet, <a href="http://dx.doi.org/10.1016/S0012-365X(01)00098-X">A self-similarity structure generated by king's walk</a>, Algebraic and topological methods in graph theory (Lake Bled, 1999). Discrete Math. 244 (2002), no. 1-3, 423--433. MR1844050 (2002k:05022)
%H Rémy Sigrist, <a href="/A211312/a211312.png">Colored representation of the first 1000 rows</a>
%F a(n) = sum(binomial(k, j) * binomial(n-j, k), j=0..n-k) mod 3. - _Johannes W. Meijer_, Jul 19 2013
%e Written as a triangle:
%e 1,
%e 1, 1,
%e 1, 0, 1,
%e 1, 2, 2, 1,
%e 1, 1, 1, 1, 1,
%e 1, 0, 1, 1, 0, 1,
%e 1, 2, 2, 0, 2, 2, 1,
%e 1, 1, 1, 0, 0, 1, 1, 1,
%e 1, 0, 1, 0, 0, 0, 1, 0, 1,
%e ...
%p A211312 := proc(n,k): add(binomial(k, j) * binomial(n-j, k), j=0..n-k) mod 3 end: seq(seq(A211312(n,k), k=0..n), n=0..12); # _Johannes W. Meijer_, Jul 19 2013
%t a[n_, k_] := Mod[Binomial[n, k]*Hypergeometric2F1[-k, k-n, -n, -1], 3]; Table[a[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* _Jean-François Alcover_, Jan 14 2014, after _Johannes W. Meijer_ *)
%Y Cf. A008288, A211312-A211315.
%K nonn,tabl
%O 0,8
%A _N. J. A. Sloane_, Apr 15 2012