|
|
A280714
|
|
Partial products of A055067.
|
|
1
|
|
|
1, 1, 2, 6, 144, 2880, 2073600, 1306368000, 17557585920000, 637129677864960000, 2312016175036366848000000, 640890883720080890265600000000, 306987758727332698566646824960000000000, 136544225638605874463902854662848512000000000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
A055067(n) = the product of non-divisors of n.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Product_{i=1..n} A055067(i).
|
|
MATHEMATICA
|
FoldList[#1 #2 &, Table[Times @@ Complement[Range@ n, Divisors@ n], {n, 14}]] (* Michael De Vlieger, Jan 09 2017 *)
|
|
PROG
|
(Magma) [&*[Factorial(k) / &*[d: d in Divisors(k): k in [1..n]]: n in [1..100]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|