|
%I #14 Aug 05 2019 17:46:18
%S 1,0,1,1,1,0,0,2,3,3,13,13,11,6,0,0,26,50,67,73,73,505,505,479,403,
%T 286,146,0,0,1010,1994,2876,3565,3997,4143,4143,39313,39313,38303,
%U 35299,30429,23988,16426,8286,0,0,78626,156242,229844,295572,349989,390403
%N Triangle read by rows from left to right. However, triangle is constructed in the boustrophedon way, reading alternately right to left and left to right. Top entry is 1. In all later rows, initial entry is 0, other entries are sum of previous entry in that row plus sum of two entries above it in previous row.
%e Triangle begins:
%e 1
%e 0 1
%e 1 1 0
%e 0 2 3 3
%e 13 13 11 6 0 (e.g., 11 = 6 + 3 + 2)
%e 0 26 50 67 73 73 (e.g., 50 = 26 + 13 + 11)
%p T[0,0]:=1: for n from 0 to 12 do T[n,-1]:=0 od: for n from 0 to 12 do T[n,n+1]:=0 od: for n from 1 by 2 to 12 do T[n,0]:=0: for k from 1 to n do T[n,k]:=T[n,k-1]+T[n-1,k]+T[n-1,k-1] od: T[n+1,n+1]:=0: for j from 1 to n+1 do T[n+1,n+1-j]:=T[n+1,n+2-j]+T[n,n+1-j]+T[n,n-j] od: od: for n from 0 to 9 do seq(T[n,k],k=0..n) od; # yields sequence in triangular form; not necessarily the best Maple program # _Emeric Deutsch_, Aug 03 2005
%Y Cf. A007318, A008280, A008281, A106242. The row ends give A059294. Row sums give A106327.
%K nonn,tabl,easy
%O 0,8
%A _N. J. A. Sloane_, May 29 2005
%E More terms from _Emeric Deutsch_, Aug 03 2005
|
