OFFSET
1,3
COMMENTS
phi(n) is the number of totatives of n (A000010).
FORMULA
a(n) = Product_{i=1..n} A029940(i).
MATHEMATICA
FoldList[Times[#1, #2] &, Array[Product[EulerPhi@ d, {d, Divisors@ #}] &, 22]] (* Michael De Vlieger, Dec 27 2016 *)
PROG
(Magma) [&*[&*[EulerPhi(d): d in Divisors(k)]: k in [1..n]]: n in [1..100]];
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 27 2016
STATUS
approved