|
%I #22 Jul 02 2018 03:13:30
%S 2,2,3,2,5,4,2,7,9,5,2,9,16,14,6,2,11,25,30,20,7,2,13,36,55,50,27,8,2,
%T 15,49,91,105,77,35,9,2,17,64,140,196,182,112,44,10,2,19,81,204,336,
%U 378,294,156,54,11,2,21,100,285,540,714,672,450,210,65,12,2,23,121,385
%N Numbers in the (2,1)-Pascal triangle A029653 that are different from 1.
%D D. M. Bressoud, Proofs and Confirmations, Camb. Univ. Press, 1999; triangle on page 6, numerators.
%H Michael De Vlieger, <a href="/A029656/b029656.txt">Table of n, a(n) for n = 1..11325</a> (rows 1 <= n <= 150)
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AlternatingSignMatrix.html">Alternating Sign Matrix.</a>
%H D. Zeilberger, <a href="http://www.math.rutgers.edu/~zeilberg/DaveRobbins/guess.html">Dave Robbins's Art of Guessing</a>, Adv. in Appl. Math. 34 (2005), 939-954.
%F From _Thomas Baruchel_, Jun 26 2018: (Start)
%F a(n,k) = (binomial(n+2,k+1) + binomial(n+1,k) + binomial(n,k) - binomial(n,k+1))/2.
%F a(n,k) = binomial(n-1,k-1) + binomial(n-1,k) + binomial(n,k-1) + binomial(n,k). (End)
%e Triangle begins:
%e 2;
%e 2, 3;
%e 2, 5, 4;
%e 2, 7, 9, 5;
%e 2, 9, 16, 14, 6;
%e 2, 11, 25, 30, 20, 7;
%e ...
%t Table[(Binomial[n + 2, k + 1] + Binomial[n + 1, k] + Binomial[n, k] - Binomial[n, k + 1])/2, {n, 0, 11}, {k, 0, n}] // Flatten (* _Michael De Vlieger_, Jun 29 2018 *)
%Y Cf. A048601, A029638.
%K nonn,tabl
%O 1,1
%A _Mohammad K. Azarian_
%E More terms from _James A. Sellers_
|
