A278393 Number of positive meanders (walks starting at the origin and ending at any altitude > 0 that never touch or go below the x-axis in between) with n steps from {-4,-3,-2,-1,0,1,2,3,4}.

1, 4, 26, 194, 1521, 12289, 101205, 844711, 7120398, 60477913, 516774114, 4437360897, 38256405777, 330948944639, 2871299293535, 24973776734091, 217690276938940, 1901204163460913, 16632544424086901, 145730139895667887, 1278596503973570665, 11231908572986043199

Offset

0,2

Comments

By convention, the empty walk (corresponding to n=0) is considered to be a positive meander.

Links

Andrew Howroyd, Table of n, a(n) for n = 0..200

C. Banderier, C. Krattenthaler, A. Krinik, D. Kruchinin, V. Kruchinin, D. Nguyen, and M. Wallner, Explicit formulas for enumeration of lattice paths: basketball and the kernel method, arXiv:1609.06473 [math.CO], 2016.

Mathematica

frac[ex_] := Select[ex, Exponent[#, x] < 0&];
seq[n_] := Module[{v, m, p}, v = Table[0, n]; m = Sum[x^i, {i, -4, 4}]; p = 1/x; v[[1]] = 1; For[i = 2, i <= n, i++, p = p*m // Expand; p = p - frac[p]; v[[i]] = p /. x -> 1]; v];
seq[22] (* Jean-François Alcover, Jul 01 2018, after Andrew Howroyd *)

Prog

(PARI) seq(n)={my(v=vector(n), m=sum(i=-4, 4, x^i), p=1/x); 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

Cf. A276852, A278391, A278392, A278394, A278395, A278396, A278398.

Sequence in context: A114496 A127086 A198024 * A349361 A192499 A271935

Adjacent sequences: A278390 A278391 A278392 * A278394 A278395 A278396

Keyword

nonn,walk

Author

David Nguyen, Nov 20 2016

Status

approved