%I #21 Oct 30 2022 18:19:59
%S 1,0,0,0,0,0,1,8,112,1168,13365,159414,2036488,27780408,404351752,
%T 6263006598,102946702825,1790795492176,32880327473840,635630231970048,
%U 12907624693811937,274744151265431700,6117666413618771968,142238172767973342656
%N Number of permutations s of {1,2,...,n} such that |s(i)-i|>2 for each i=1,2,...,n.
%C a(n) equals the permanent of the n X n matrix with 0's along the main diagonal, the superdiagonal, the subdiagonal, the sub-subdiagonal, the super-superdiagonal, and 1's everywhere else. - _John M. Campbell_, Jul 09 2011
%H Alois P. Heinz, <a href="/A075851/b075851.txt">Table of n, a(n) for n = 0..450</a>
%p b:= proc(s) option remember; (n-> `if`(n=0, 1, add(
%p `if`(abs(n-i)>2, b(s minus {i}), 0), i=s)))(nops(s))
%p end:
%p a:= n-> b({$1..n}):
%p seq(a(n), n=0..15); # _Alois P. Heinz_, Jan 25 2019
%t a[0] = 1; a[n_] := a[n] = If[n<6, 0, SparseArray[{Band[{1, 1}] -> 0, Band[{2, 1}] -> 0, Band[{3, 1}] -> 0, Band[{1, 2}] -> 0, Band[{1, 3}] -> 0}, {n, n}, 1] // Permanent];
%t Table[Print[n, " ", a[n]]; a[n], {n, 0, 23}] (* _Jean-François Alcover_, Apr 30 2019 *)
%Y Cf. A001883, A075852.
%K nonn
%O 0,8
%A _Reiner Martin_, Oct 15 2002
%E More terms from _Vladimir Baltic_, _Vladeta Jovovic_, Jan 04 2003
%E a(21) from _Alois P. Heinz_, Jul 04 2015
%E a(22)-a(23) from _Alois P. Heinz_, Jan 22 2019
%E a(0)=1 prepended by _Alois P. Heinz_, Jan 25 2019
|