|
|
A069378
|
|
Number of n X 3 binary arrays with a path of adjacent 1's from top row to bottom row.
|
|
5
|
|
|
7, 37, 197, 1041, 5503, 29089, 153769, 812849, 4296863, 22713981, 120070149, 634712209, 3355201895, 17736195433, 93756691401, 495614587553, 2619907077991, 13849295944501, 73209847696773
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
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
|
|
MATHEMATICA
|
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 *)
|
|
PROG
|
(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
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|