OFFSET
1,3
COMMENTS
Table starts
........1.........1..........1............1.............1...............1
........2.........4..........8...........16............32..............64
........9........29........112..........436..........1708............6724
.......44.......206.......1168.........6984.........41808..........250464
......265......1708......13365.......114124........998112.........8751552
.....1854.....15702.....159414......1799688......21201024.......252813312
....14833....159737....2036488.....29125117.....441629332......6860776320
...133496...1780696...27780408....486980182....9154333160....178195229760
..1334961..21599745..404351752...8490078104..192565379941...4564491262444
.14684570.283294740.6263006598.154750897552.4146526612518.116967725946488
LINKS
R. H. Hardin, Table of n, a(n) for n = 1..201
EXAMPLE
All permutations of 1-5 with minimum displacement 2:
(3,4,5,1,2) (3,4,5,2,1) (4,5,1,2,3) (5,4,1,2,3).
MATHEMATICA
T[n_, k_] := Permanent[nrows = n+2k-1; Table[If[Abs[i-j] <= k-1, 0, 1], {i, 1, nrows}, {j, 1, nrows}]]; Table[t = T[n-k+1, k]; Print[ "T(", n-k+1, ", ", k, ") = ", t]; t, {n, 1, 9}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Jan 07 2016, adapted from Sage *)
PROG
(Sage)
def A183244_T(n, k):
return Matrix(lambda i, j: 0 if abs(i-j) <= (k-1) else 1, nrows=n+2*k-1).permanent() # D. S. McNeil, Jan 04 2011
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
R. H. Hardin, Jan 03 2011
STATUS
approved