OFFSET
0,7
COMMENTS
T(n, k) = number of integer strings s(0)..s(n) such that s(0) = 0, s(n) = n-k, |s(i) - s(i-1)| = 1 if i is even, |s(i) - s(i-1)| <= 1 if i is odd.
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..10200 (Rows 0..100, flattened) [Offset changed to 0 by Georg Fischer, Mar 01 2022]
Veronika Irvine, Lace Tessellations: A mathematical model for bobbin lace and an exhaustive combinatorial search for patterns, PhD Dissertation, University of Victoria, 2016.
Veronika Irvine, Stephen Melczer, and Frank Ruskey, Vertically constrained Motzkin-like paths inspired by bobbin lace, arXiv:1804.08725 [math.CO], 2018.
FORMULA
T(n, k) = T(n-1, k-2) + T(n-1, k) if (n mod 2) = 0, otherwise T(n-1, k-2) + T(n-1, k-1) + T(n-1, k), with T(n, 0) = T(n, 2*n) = 1, T(n, 1) = T(n, 2*n-1) = floor((n+1)/2).
EXAMPLE
First 5 rows:
1
1 ... 1 ... 1
1 ... 1 ... 2 ... 1 ... 1
1 ... 2 ... 4 ... 4 ... 4 ... 2 ... 1
1 ... 2 ... 5 ... 6 ... 8 ... 6 ... 5 ... 2 ... 1
MATHEMATICA
z = 12; t[n_, 0]:= 1; t[n_, k_]:= 1/; k==2n; t[n_, 1]:= Floor[(n+1)/2]; t[n_, k_] := Floor[(n+1)/2] /; k==2n-1; t[n_, k_]:= t[n, k]= If[EvenQ[n], t[n-1, k-2] + t[n-1, k], t[n-1, k-2] + t[n-1, k-1] + t[n-1, k]];
u = Table[t[n, k], {n, 0, z}, {k, 0, 2n}];
TableForm[u] (* A026519 array *)
Flatten[u] (* A026519 sequence *)
PROG
(Sage)
@CachedFunction
def T(n, k): # T = A026552
if (k==0 or k==2*n): return 1
elif (k==1 or k==2*n-1): return (n+1)//2
elif (n%2==0): return T(n-1, k) + T(n-1, k-2)
else: return T(n-1, k) + T(n-1, k-1) + T(n-1, k-2)
flatten([[T(n, k) for k in (0..2*n)] for n in (0..12)]) # G. C. Greubel, Dec 19 2021
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
EXTENSIONS
Updated by Clark Kimberling, Aug 29 2014
Offset changed to 0 by G. C. Greubel, Dec 19 2021
STATUS
approved