|
%I #17 Apr 03 2020 18:11:23
%S 1,3,16,119,1070,10751,116287,1326581,15756587,193181910,2429921124,
%T 31216684816,408198225495,5418728779290,72871393962150,
%U 991102308239835,13613940451015378,188650695857473559,2634681336798911129,37054660535787380825,524449965598846642847
%N Number of nonnegative lattice paths from (0,0) to (4n+3,0) such that slopes of adjacent steps differ by one, assuming zero slope before and after the paths.
%C The maximal height in all paths of length 4n+3 is (n+1)^2 = A000290(n+1).
%C The maximal area under all paths of length 4n+3 is 2*(n+1)^3 = A033431(n+1).
%H Alois P. Heinz, <a href="/A333682/b333682.txt">Table of n, a(n) for n = 0..100</a>
%H Alois P. Heinz, <a href="/A333682/a333682.gif">Animation of a(3) = 119 paths</a>
%H Alois P. Heinz, <a href="/A333682/a333682_1.gif">Plot of a(3) = 119 paths</a>
%H Alois P. Heinz, <a href="/A333682/a333682_2.gif">Plot of a(4) = 1070 paths</a>
%H Alois P. Heinz, <a href="/A333682/a333682_3.gif">Plot of a(5) = 10751 paths</a>
%p b:= proc(x, y, t) option remember; `if`(x=0, 1, add(`if`(j=t, 0,
%p b(x-1, y+j, j)), j=max(t-1, -y)..min(x*(x-1)/2-y, t+1)))
%p end:
%p a:= n-> b(4*n+3, 0$2):
%p seq(a(n), n=0..23);
%Y Cf. A000290, A004767, A033431, A333647.
%K nonn
%O 0,2
%A _Alois P. Heinz_, Apr 01 2020
|
