cp's OEIS Frontend

A200053 Number of -4..4 arrays X (0..n-1) of n elements with zero sum and elements alternately strictly increasing and strictly decreasing.

%I A200053 #11 Nov 20 2014 10:22:30
%S A200053 1,8,36,172,840,4172,20978,106674,545698,2811236,14534258,75522854,
%T A200053 393338058,2056376914,10767639532,56550307652,297322835298,
%U A200053 1567022163228,8265441146830,43685281805084,231022736833454,1223830782531260
%N A200053 Number of -4..4 arrays X (0..n-1) of n elements with zero sum and elements alternately strictly increasing and strictly decreasing.
%C A200053 Column 4 of A200057.
%H A200053 R. H. Hardin, <a href="/A200053/b200053.txt">Table of n, a(n) for n = 1..200</a>
%e A200053 Some solutions for n=6:
%e A200053 .-2....2...-1...-3...-2....4....0...-1....0....2...-4....2...-1....0....0....1
%e A200053 ..2...-3....4....1....2....0....4....3...-2....0....2....4....2....4....2....0
%e A200053 ..1....2...-3....0...-1....3...-3...-1....4....2...-1....0...-3...-2...-2....2
%e A200053 ..4...-1....0....4....0...-3....3....4...-4...-3....1....1....1....1....1...-4
%e A200053 .-3....1...-2...-3...-3....0...-3...-3....2....1...-2...-4....0...-2...-3....4
%e A200053 .-2...-1....2....1....4...-4...-1...-2....0...-2....4...-3....1...-1....2...-3
%p A200053 T:= proc(a,n,s)
%p A200053    option remember;
%p A200053    if n = 1 then
%p A200053       if s = a then 1
%p A200053       else 0
%p A200053       fi
%p A200053    else
%p A200053      add(procname(-j,n-1,a-s), j=a+1..4)
%p A200053    fi
%p A200053 end proc:
%p A200053 A:= proc(n)  2*add(T(a,n,0),a=-4..4) end proc: A(1):= 1:
%p A200053 seq(A(n), n=1..30); # _Robert Israel_, Nov 19 2014
%Y A200053 Cf. A200057.
%K A200053 nonn
%O A200053 1,2
%A A200053 _R. H. Hardin_, Nov 13 2011