A056195 a(n) = n! divided by its characteristic cube divisor A056194.
1, 2, 6, 3, 15, 720, 5040, 5040, 45360, 3628800, 39916800, 17740800, 230630400, 403603200, 1307674368, 20922789888, 355687428096, 51218989645824, 973160803270656, 2432902008176640000, 5516784599040000
Offset: 1
Keywords
Examples
n = 10, a(10) = 10! because g(10!) = 1. n = 9, a(9) = 45320 because 9! = 2*2*2*2*2*2*2*3*3*5*7 and g(9!) = 2, so a(9) = 9!/8.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..491
Programs
-
Mathematica
f[p_, e_] := If[OddQ[e] && e > 1, p^3, 1]; a[n_] := n! / (Times @@ f @@@ FactorInteger[n!]); Array[a, 20] (* Amiram Eldar, Sep 06 2020 *)