cp's OEIS Frontend

A085452 Triangle T(n,k) read by rows: T(n,k) = number of cycles of length 2k in the binary n-cube, for n >= 2, k = 2, 3, ..., 2^(n-1).

%I A085452 #31 Feb 16 2025 08:32:50
%S A085452 1,6,16,6,24,128,696,2112,5024,5376,1344,80,640,6720,68736,591200,
%T A085452 4652160,32146800,185285120,865894848,3136412160,8315531200,
%U A085452 14800412160,15448366080,7413471744,906545760,240,2560,39840,698112,12226560,203258880,3257746560
%N A085452 Triangle T(n,k) read by rows: T(n,k) = number of cycles of length 2k in the binary n-cube, for n >= 2, k = 2, 3, ..., 2^(n-1).
%C A085452 Row n contains 2^(n-1)-1 terms.
%C A085452 Also the triangle of even-order coefficients (odd coefficients are all 0) of the hypercube graph cycle polynomials ordered from smallest to largest exponent starting with x^4. - _Eric W. Weisstein_, Feb 05 2014
%D A085452 Initial terms computed by Daniele Degiorgi (danieled(AT)inf.ethz.ch).
%H A085452 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CyclePolynomial.html">Cycle Polynomial</a>
%H A085452 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/HypercubeGraph.html">Hypercube Graph</a>
%e A085452 Triangle begins:
%e A085452 1,
%e A085452 6, 16, 6,
%e A085452 24, 128, 696, 2112, 5024, 5376, 1344,
%e A085452 80, 640, 6720, 68736, 591200, 4652160, 32146800, 185285120, 865894848, 3136412160, 8315531200, 14800412160, 15448366080, 7413471744, 906545760,
%e A085452 ....
%e A085452 In terms of cycle polynomials:
%e A085452 x^4
%e A085452 6*x^4 + 16*x^6 + 6*x^8
%e A085452 24*x^4 + 128*x^6 + 696*x^8 + 2112*x^10 + 5024*x^12 + 5376*x^14 + 1344*x^16
%e A085452 ...
%t A085452 Table[Table[Length[FindCycle[HypercubeGraph[n], {k}, All]], {k, 4, 2^n, 2}], {n, 4}] // Flatten (* _Eric W. Weisstein_, Mar 23 2020 *)
%Y A085452 Cf. A066037, A001788. Row sums give A085408.
%K A085452 nonn,tabf,more,hard
%O A085452 2,2
%A A085452 Yuval Dekel (dekelyuval(AT)hotmail.com), Aug 12 2003
%E A085452 Corrected by _Andrew Weimholt_, Nov 14 2009
%E A085452 Initial terms of T(6,k) from _Eric W. Weisstein_, Mar 23 2020