|
|
A069396
|
|
Half the number of 3 X n binary arrays with a path of adjacent 1's and a path of adjacent 0's from top row to bottom row.
|
|
92
|
|
|
1, 25, 377, 4541, 48329, 476389, 4461489, 40306317, 354713977, 3060942133, 26020259201, 218626028573, 1820140085705, 15043088032837, 123602247055953, 1010793162739629, 8234370308667673, 66870924588036181
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x+1)/(4*x^2-6*x+1). - Vladeta Jovovic, Jul 02 2003
|
|
MATHEMATICA
|
Drop[CoefficientList[Series[x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x + 1)/(4*x^2 - 6*x + 1), {x, 0, 50}], x], 2] (* G. C. Greubel, Apr 22 2018 *)
|
|
PROG
|
(PARI) x='x+O('x^30); Vec(x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x+1)/(4*x^2 -6*x+1)) \\ G. C. Greubel, Apr 22 2018
(Magma) m:=25; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x+1)/(4*x^2-6*x+1))); // G. C. Greubel, Apr 22 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|