cp's OEIS Frontend

A225096 Number of lattice paths without interior points from {3}^n to {0}^n using steps that decrement one component by 1.

%I A225096 #9 May 01 2013 09:01:18
%S A225096 1,0,2,384,132000,79716000,78928416000,120481708032000,
%T A225096 269702267433984000,850271305403520000000,3652393464869909760000000,
%U A225096 20798525597035736309760000000,153427251286862484058423296000000,1437639344607855309441929920512000000
%N A225096 Number of lattice paths without interior points from {3}^n to {0}^n using steps that decrement one component by 1.
%C A225096 An interior point p = (p_1, ..., p_n) has n>0 components with 0<p_i<3 for 1<=i<=n.
%H A225096 Alois P. Heinz, <a href="/A225096/b225096.txt">Table of n, a(n) for n = 0..100</a>
%e A225096 a(0) = 1: [()].
%e A225096 a(1) = 0, there is no path from (3) to (0) without interior points.
%e A225096 a(2) = 2: [(3,3), (2,3), (1,3), (0,3), (0,2), (0,1), (0,0)], [(3,3), (3,2), (3,1), (3,0), (2,0), (1,0), (0,0)].
%p A225096 a:= proc(n) option remember; `if`(n<3, [1, 0, 2][n+1],
%p A225096        (2*(3*n-1)*(3*n-2)*(7*n^2-9*n-4)*n*a(n-1)
%p A225096        -3*n^2*(3*n-5)*(3*n-1)*(3*n-4)*(3*n-2)*(n-1)^2*a(n-2))/
%p A225096        (8*(2*n+1)*(n-2)))
%p A225096     end:
%p A225096 seq(a(n), n=0..20);
%Y A225096 Row n=3 of A225094.
%K A225096 nonn
%O A225096 0,3
%A A225096 _Alois P. Heinz_, Apr 27 2013