|
%I #4 Mar 31 2023 17:56:36
%S 4,96,2672,78848,2400896,74568704,2347934464,74675511296,
%T 2393372833792,77176031297536,2500887165493248,81372026697351168,
%U 2656708513978580992,86992366046604165120,2855701159218522030080,93950313500933860884480,3096866628586659248603136
%N Total number of peaks in 3-Fuss-skew paths of semilength n
%H Toufik Mansour, Jose Luis Ramirez, <a href="https://doi.org/10.33039/ami.2022.01.002">Enumration of Fuss-skew paths</a>, Ann. Math. Inform. 55 (2022) 125-136, table 2, l=3.
%p FussSkewP := proc(l,n)
%p local a,j,k ;
%p a := 0 ;
%p for j from 0 to n do
%p a := a+sum( binomial(n,j) *binomial(j,k) *binomial(n*(l-1),n-2*j+k-1)
%p * 2^(n*(l-2)+2*j-k+1)*3^(k-1)*(3*(n-j)+k),k=0..j) ;
%p end do:
%p a/n ;
%p end proc:
%p seq(FussSkewP(3,n),n=1..40) ;
%Y Cf. A026378 (1-Fuss-skew), A361964 (2-Fuss-skew)
%K nonn,easy
%O 1,1
%A _R. J. Mathar_, Mar 31 2023
|
