reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
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[nDec 08 2016 Jul 03 2022 *)
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 *)
proposed
editing
editing
proposed
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); Table Array[f[n], {n, 1, 10}, 5] (* _Herbert Kociemba_, Dec 08 2016 *)
(* 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 *)
(* Herbert Kociemba, Jul 03 2022 *)
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 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed