|
%I #17 Apr 17 2016 08:56:55
%S 1,2,2,2,2,4,8,4,2,4,2,4,8,4,8,24,24,8,8,8,8,8,8,8,8,8,8,24,24,8,16,
%T 64,96,64,16,4,16,24,16,4,8,32,16,32,8,4,16,24,16,4,16,64,96,64,16,32,
%U 160,320,320,160,32,32,32,64,64,32,32,16,16,32,32,16,16,16,16,32,32,16,16,32,32,64,64,32,32,32,160,320,320,160,32
%N Normalization coefficients for quantum Pascal's pyramid, denominators of: T(n,k,m) = ((n - m)! m!)/(2^n (n - k)! k!).
%C Read by block by row, i.e., a( x(n,k,m) ) have x(n,k,m) = ( sum_{i=0}^n i^2 ) + k ( n + 1 ) + m and (n,k,m) >= 0. See comments in A268533 for relevance.
%F T(n,k,m) = Denominator[((n - m)! m!)/(2^n (n - k)! k!)]
%e First few blocks:
%e 1
%e . . 2, 2
%e . . 2, 2
%e . . . . . 4, 8, 4
%e . . . . . 2, 4, 2
%e . . . . . 4, 8, 4
%t NormFrac[Block_] :=
%t Outer[Function[{n, k, m}, ((n - m)! m!)/(2^n (n - k)! k!)][
%t Block, #1, #2] &, Range[0, Block], Range[0, Block], 1]; Flatten[
%t Denominator[NormFrac[#]] & /@ Range[0, 5]]
%Y Numerators: A269301. Cf. A268533.
%K nonn,frac
%O 0,2
%A _Bradley Klee_, Feb 22 2016
|
