A080657 Duplicate of A075152.
1, 3674160, 43252003274489856000, 7401196841564901869874093974498574336000000000
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
From _Andrey Zabolotskiy_, Jun 24 2016 [following Munafo]: (Start) a(4) = 8! * 3^7 * 24! * 24! / 4!^6 is constituted by: 8! permutation of corners × (12*2)! permutation of edges × (6*4)! permutation of centers × 1 (combination of permutations must be even, but we can achieve what appears to be an odd permutation of the other pieces in the cube by "hiding" a transposition within the indistinguishable pieces of one color) × 3^8 orientations of corners / 3 total orientation of corners must be zero × 1 (orientations of edges and centers are determined by their position) / 4!^6 the four center pieces of each color are indistinguishable (End)
f[1]=1; f[2]=24*7!3^6; f[3]=8!3^7 12!2^10; f[n_]:=f[n-2]*24^6*(24!/24^6)^(n-2); Table[f[n], {n, 1, 10}] (* Herbert Kociemba, Dec 08 2016 *)
f := proc(n) local A,B,C,D,E,F,G; if n mod 2 = 1 then A := (n-1)/2; B := (n-1)/2; C := (n-1)/2; D := 0; E := (n+4)*(n-1)*(n-3)/24; F := 0; G := 0; else A := n/2; B := n/2; C := 0; D := 0; E := n*(n^2-4)/24; F := 1; G := 0; fi; (2^A*((8!/2)*3^7)^B*((12!/2)*2^11)^C*((4^6)/2)^D*(24!/2)^E)/(24^F*((24^6)/2)^G); end;
f := proc(n) local A,B,C,D,E,F,G; if n mod 2 = 1 then A := (n-1)/2; B := 1; C := 1; D := 0; E := (n+1)*(n-3)/4; F := 0; G := 0; else A := n/2; B := 1; C := 0; D := 0; E := n*(n-2)/4; F := 1; G := 0; fi; (2^A*((8!/2)*3^7)^B*((12!/2)*2^11)^C*((4^6)/2)^D*(24!/2)^E)/(24^F*((24^6)/2)^G); end;
f[1]=1;f[2]=7!3^6;f[3]=8!3^7 12!2^10;f[n_]:=f[n-2]*24!(24!/2)^(n-3); Array[f,5] (* Herbert Kociemba, Dec 08 2016 *) f[1]=1;f[n_]:=7!3^6(6*24!!)^(s=Mod[n,2])24!^(r=(n-s)/2-1)(24!/2)^(r(r+s)); Array[f,5] (* Herbert Kociemba, Jul 03 2022 *)
f := proc(n) local A,B,C,D,E,F,G; if n mod 2 = 1 then A := (n-1)/2; F := 0; B := (n-1)/2; C := (n-1)/2; D := (n-1)/2; E := (n+4)*(n-1)*(n-3)/24; G := (n^2-1)*(n-3)/24; else A := n/2; F := 1; B := n/2; C := 0; D := 0; E := n*(n^2-4)/24; G := n*(n-1)*(n-2)/24; fi; (2^A*((8!/2)*3^7)^B*((12!/2)*2^11)^C*((4^6)/2)^D*(24!/2)^E)/(24^F*((24^6)/2)^G); end;
a(n) = if(n<=2, 1, 5 * (if(!(n%3), 2^(2*n^2-3*n-1) * 3^(n^2/3+3*n-6) * 1925^(n^2/3-n), 2^(2*n^2-3*n-1) * 3^(n^2/3+3*n-16/3) * 1925^(n^2/3-n-1/3))))
a(n) = if(n==1, 1, 81 * if(n==2, 1, 5 * (if(!(n%3), 2^(2*n^2-3*n-1) * 3^(n^2/3+3*n-6) * 1925^(n^2/3-n), 2^(2*n^2-3*n-1) * 3^(n^2/3+3*n-16/3) * 1925^(n^2/3-n-1/3)))))
See the Michael Gottlieb link above.
a(n) = if(n<=2, 1, my(A = 258369126400); if(!(n%3), A * 6^(-8*n^2/3+16*n-19) * (24!)^(n^2/3-n), A * 560 * 6^(-8*n^2/3+16*n-43/3) * (24!)^(n^2/3-n-1/3)))
See the Michael Gottlieb link above.
a(n) = if(n==1, 1, 4096 * (if(n==2, 1, my(A = 258369126400); if(!(n%3), A * 6^(-8*n^2/3+16*n-19) * (24!)^(n^2/3-n), A * 560 * 6^(-8*n^2/3+16*n-43/3) * (24!)^(n^2/3-n-1/3)))))
Comments