%I #28 Apr 04 2019 21:32:58
%S 1,1,2,6,8,24,126,524,3072,22854,189646,1827114,19889946,238648524,
%T 3131979014,44540692612,681114241416,11136984461270
%N Number of permutations p of 1,2,...,n satisfying |p(i+1)-p(i)|<>3 and |p(j+3)-p(j)|<>1 for all i=1..n-1, j=1..n-3.
%C a(n) is also the number of ways to place n nonattacking pieces rook + leaper[1,3] on an n X n chessboard (in fairy chess the leaper[1,3] is called a camel).
%H V. Kotesovec, <a href="https://oeis.org/wiki/User:Vaclav_Kotesovec">Number of ways of placing non-attacking queens, kings, bishops and knights</a> (in English and Czech)
%F Asymptotic: a(n)/n! ~ 1/e^4.
%t A189358[n_] := Module[{p, c = 0, i = 1, q},
%t p=Permutations[Range[n]]; While[i <= Length[p], q = p[[i]]; i++;
%t If[AllTrue[Range[n - 1], Abs[q[[# + 1]] - q[[#]]] != 3 &] &&
%t AllTrue[Range[n - 3], Abs[q[[# + 3]] - q[[#]]] != 1 &], c++]]; c];
%t Table[A189358[n], {n, 0, 9}] (* _Robert Price_, Apr 04 2019 *)
%Y Cf. A137774.
%K nonn,more,hard
%O 0,3
%A _Vaclav Kotesovec_, Apr 23 2011
%E a(17) from _Alois P. Heinz_, Mar 19 2017
|