%I #9 Dec 11 2020 03:43:47
%S 336,9744,192984,3279060,51622600,779602164,11499880768,167393051696,
%T 2419080596520,34838703973728,501182126787744,7212689238965297,
%U 103937431212291680,1500609318117978064,21713411768745550544,314940143510352714144,4579270473409470432352
%N Number of partitions of the 4-dimensional hypercube resulting from a sequence of n bisections, each of which splits any part perpendicular to any of the axes, such that each axis is used at least once.
%H Alois P. Heinz, <a href="/A258418/b258418.txt">Table of n, a(n) for n = 4..800</a>
%p b:= proc(n, k, t) option remember; `if`(t=0, 1, `if`(t=1,
%p A(n-1, k), add(A(j, k)*b(n-j-1, k, t-1), j=0..n-2)))
%p end:
%p A:= proc(n, k) option remember; `if`(n=0, 1,
%p -add(binomial(k, j)*(-1)^j*b(n+1, k, 2^j), j=1..k))
%p end:
%p T:= proc(n, k) option remember;
%p add(A(n, k-i)*(-1)^i*binomial(k, i), i=0..k)
%p end:
%p a:= n-> T(n, 4):
%p seq(a(n), n=4..25);
%t b[n_, k_, t_] := b[n, k, t] = If[t == 0, 1, If[t == 1, A[n - 1, k], Sum[A[j, k]*b[n - j - 1, k, t - 1], {j, 0, n - 2}]]];
%t A[n_, k_] := A[n, k] = If[n == 0, 1, -Sum[Binomial[k, j]*(-1)^j*b[n + 1, k, 2^j], {j, 1, k}]];
%t T[n_, k_] := Sum[A[n, k - i]*(-1)^i*Binomial[k, i], {i, 0, k}];
%t a[n_] := T[n, 4];
%t a /@ Range[4, 25] (* _Jean-François Alcover_, Dec 11 2020, after _Alois P. Heinz_ *)
%Y Column k=4 of A255982.
%K nonn
%O 4,1
%A _Alois P. Heinz_, May 29 2015