|
%I #27 Sep 29 2023 13:05:50
%S 1,0,2,1092,2265024,11804626080,131402141197200,2778291737177034960,
%T 102284730928300590754560,6134232798447803932455457920,
%U 568598490353320413296928514444800,78076149156802562231395694989534464000,15336188146163145199585928509793662920345600
%N Number of permutations of the multiset {1,1,1,1,2,2,2,2,3,3,3,3,...,n,n,n,n} with no two consecutive terms equal.
%H Seiichi Manyama, <a href="/A321633/b321633.txt">Table of n, a(n) for n = 0..129</a>
%H Mathematics.StackExchange, <a href="https://math.stackexchange.com/questions/129451/find-the-number-of-arrangements-of-k-mbox-1s-k-mbox-2s-cdots">Find the number of k 1's, k 2's, ... , k n's - total kn cards</a>, Apr 08 2012.
%F a(n) = n! * A190830(n).
%F a(n) = Integral_{0..oo} (-x + 3/2 * x^2 - 1/2 * x^3 + 1/24 * x^4)^n * exp(-x) dx.
%e a(2) = 2 because there are two permutations of {1,1,1,1,2,2,2,2} avoiding equal consecutive terms: 12121212 and 21212121.
%t a[n_] := Integrate[(-x + 3/2 * x^2 - 1/2 * x^3 + 1/24 * x^4)^n * Exp[-x], {x, 0, Infinity}]; Array[a, 10, 0] (* _Stefano Spezia_, Nov 27 2018 *)
%Y Row 4 of A322093.
%Y Cf. A000142, A114938, A190830, A193638.
%K nonn
%O 0,3
%A _Seiichi Manyama_, Nov 15 2018
|
