OFFSET
1,2
COMMENTS
As n increases, the ratio of a(n)/a(n-1) appears to converge to around 5.483.
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..100
FORMULA
Conjectures from Colin Barker, Nov 18 2017: (Start)
G.f.: x*(1 - 8*x + 34*x^2 - 66*x^3 + 21*x^4 + 85*x^5 - 64*x^6 - 45*x^7 + 26*x^8 + 11*x^9 - 3*x^10 - x^11) / ((1 - 8*x + 15*x^2 - 5*x^3 - 9*x^4 + 2*x^5 + x^6)*(1 - 4*x + 7*x^2 - 3*x^3 - 7*x^4 + 2*x^5 + x^6)).
a(n) = 12*a(n-1) - 54*a(n-2) + 124*a(n-3) - 133*a(n-4) - 16*a(n-5) + 175*a(n-6) - 94*a(n-7) - 69*a(n-8) + 40*a(n-9) + 12*a(n-10) - 4*a(n-11) - a(n-12) for n>12.
(End)
EXAMPLE
For n=2, using the notation D(own), R(ight), L(eft), U(p), the 4 walks are {D, RDL, RRDLL, RRRDLLL}.
MATHEMATICA
a[n_] := Block[{t=0, w, b=Array[1&, {n, 4}]}, w[rr_, cc_] := Block[{r, c}, If[rr+cc == 2, t++, Do[{r, c} = {rr, cc} + e; If[0<c<5 && 0<r<=n && b[[r, c]] > 0, b[[r, c]] = 0; w[r, c]; b[[r, c]] = 1], {e, {{-1, 0}, {1, 0}, {0, 1}, {0, -1}}}]]]; b[[n, 1]] = 0; w[n, 1]; t]; a /@ Range[6] (* Giovanni Resta, Mar 13 2013 *)
CROSSREFS
KEYWORD
nonn,walk
AUTHOR
Toby Gottfried, Mar 13 2013
EXTENSIONS
a(13)-a(14) from Giovanni Resta, Mar 13 2013
Terms a(15) and beyond from Andrew Howroyd, Apr 08 2016
STATUS
approved