%I #3 Jan 02 2018 11:24:11
%S 0,1,2,5,20,137,1478,22925,481448,13138193,451749962,19104365333,
%T 974417603132,58981977530777,4179837144348686,342799255549127837,
%U 32212592211380729168,3438255899105307857441,413670348773363088131474,55722273751954119897519653,8352810415786907670280952420
%N a(n) = A297628(n,1).
%o (Julia)
%o function A297629List(len::Int)
%o R = Array{BigInt}(len)
%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 R[n] = A[2]
%o end
%o return R
%o end
%o println(A297629List(20))
%Y Cf. A297628.
%K nonn
%O 0,3
%A _Peter Luschny_, Jan 02 2018
|