|
|
A278398
|
|
Number of meanders (walks starting at the origin and ending at any altitude >= 0 that may touch but never go below the x-axis) with n steps from {-3,-2,-1,1,2,3}.
|
|
9
|
|
|
1, 3, 15, 75, 400, 2169, 11989, 66985, 377718, 2144290, 12240943, 70193305, 404029950, 2332989921, 13508237399, 78399357623, 455959701700, 2656652705422, 15504203678738, 90614205677898, 530288460288008, 3107012752773125, 18223934202102463, 106996319699099591
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
frac[ex_] := Select[ex, Exponent[#, x] < 0&];
seq[n_] := Module[{v, m, p}, v = Table[0, n]; m = Sum[x^i, {i, -3, 3}] - 1; p = 1; v[[1]] = 1; For[i = 2, i <= n, i++, p = p*m // Expand; p = p - frac[p]; v[[i]] = p /. x -> 1]; v];
|
|
PROG
|
(PARI) seq(n)={my(v=vector(n), m=sum(i=-3, 3, x^i)-1, p=1); v[1]=1; for(i=2, n, p*=m; p-=frac(p); v[i]=subst(p, x, 1)); v} \\ Andrew Howroyd, Jun 27 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,walk
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|