OFFSET
1,2
COMMENTS
A001783(n) = the product of totatives of n.
FORMULA
a(n) = Sum_{i=1..n} A001783(i).
MATHEMATICA
Accumulate@ Table[Times @@ Select[Range@ n, CoprimeQ[n, #] &], {n, 24}] (* Michael De Vlieger, Jan 09 2017 *)
PROG
(Magma) [&+[&*[h: h in [1..k] | GCD(h, k) eq 1]: k in [1..n]]: n in [1..100]]
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 08 2017
STATUS
approved