A280714 Partial products of A055067.
1, 1, 2, 6, 144, 2880, 2073600, 1306368000, 17557585920000, 637129677864960000, 2312016175036366848000000, 640890883720080890265600000000, 306987758727332698566646824960000000000, 136544225638605874463902854662848512000000000000
Offset: 1
Keywords
Programs
-
Magma
[&*[Factorial(k) / &*[d: d in Divisors(k)]: k in [1..n]]: n in [1..100]];
-
Mathematica
FoldList[#1 #2 &, Table[Times @@ Complement[Range@ n, Divisors@ n], {n, 14}]] (* Michael De Vlieger, Jan 09 2017 *)
Formula
a(n) = Product_{i=1..n} A055067(i).
Comments