|
%I #21 Jan 07 2023 12:44:58
%S 7,37,197,1041,5503,29089,153769,812849,4296863,22713981,120070149,
%T 634712209,3355201895,17736195433,93756691401,495614587553,
%U 2619907077991,13849295944501,73209847696773
%N Number of n X 3 binary arrays with a path of adjacent 1's from top row to bottom row.
%H G. C. Greubel, <a href="/A069378/b069378.txt">Table of n, a(n) for n = 1..1000</a>
%F G.f.: x*(7-12*x+x^2+2*x^3-2*x^4)/(1-7*x+9*x^2+x^3-4*x^4+2*x^5). - _Vladeta Jovovic_, Jul 02 2003
%t Rest[CoefficientList[Series[x*(7-12*x+x^2+2*x^3-2*x^4)/(1-7*x+9*x^2+x^3-4*x^4 +2*x^5), {x,0,50}], x]] (* _G. C. Greubel_, Apr 22 2018 *)
%o (PARI) x='x+O('x^30); Vec(x*(7-12*x+x^2+2*x^3-2*x^4)/(1 -7*x+9*x^2 +x^3- 4*x^4+2*x^5)) \\ _G. C. Greubel_, Apr 22 2018
%o (Magma) m:=25; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(x*(7-12*x+x^2+2*x^3-2*x^4)/(1-7*x+9*x^2+x^3-4*x^4+2*x^5))); // _G. C. Greubel_, Apr 22 2018
%Y Column 3 of A359576.
%Y Cf. 1 X n A000225, 2 X n A005061, n X 2 A001333, vertical path of 1 A069361-A069395, vertical paths of 0+1 A069396-A069416, vertical path of 1 not 0 A069417-A069428, no vertical paths A069429-A069447, no horizontal or vertical paths A069448-A069452.
%K nonn
%O 1,1
%A _R. H. Hardin_, Mar 22 2002
|
