OFFSET
1,2
FORMULA
a(n) = Product_{i=1..n} A280258(i).
MATHEMATICA
FoldList[#1 #2 &, #] &@ Table[Sum[Times @@ Select[Range@ d, CoprimeQ[#, d] &], {d, Divisors@ n}], {n, 15}] (* Michael De Vlieger, Jan 01 2017 *)
PROG
(Magma) [&*[&+[&*[h: h in [1..d] | GCD(h, d) eq 1]: d in Divisors(k)]: k in [1..n]]: n in [1..100]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 01 2017
STATUS
approved