A297628 - OEIS

%I #7 Jan 02 2018 11:24:07

%S 1,1,1,1,2,2,1,5,7,7,1,20,34,41,41,1,137,253,335,376,376,1,1478,2818,

%T 3905,4657,5033,5033,1,22925,44371,62999,77722,87788,92821,92821,1,

%U 481448,939970,1354121,1705273,1978703,2164345,2257166,2257166

%N Seidel's triangle generating A006846 read by rows, T(n,k) for n>=0 and 0<=k<=n.

%e Triangle starts:

%e 0: [1]

%e 1: [1,       1]

%e 2: [1,       2,       2]

%e 3: [1,       5,       7,        7]

%e 4: [1,      20,      34,       41,       41]

%e 5: [1,     137,     253,      335,      376,      376]

%e 6: [1,    1478,    2818,     3905,     4657,     5033,     5033]

%e 7: [1,   22925,   44371,    62999,    77722,    87788,    92821,    92821]

%e 8: [1,  481448,  939970,  1354121,  1705273,  1978703,  2164345,  2257166,  2257166]

%o (Julia)

%o function  A297628Triangle(len::Int)

%o     A = fill(BigInt(0), len+1); A[1] = 1

%o     for n in 1:len

%o         for k in n:-1:2 A[k] += A[k+1] end

%o         for k in 2: 1:n A[k] += A[k-1] end

%o         println(A[1:n])

%o     end

%o end

%o println(A297628Triangle(9))

%Y T(n,1) = A297629(n).

%Y T(n,n) = A006846(n).

%Y Row sums are A297630.

%K nonn,tabl

%O 0,5

%A _Peter Luschny_, Jan 02 2018