%I #7 Sep 08 2022 08:46:18
%S 1,2,5,9,19,37,58,122,203,403,458,2186,2264,3146,4946,9042,9178,35422,
%T 35593,99593,107531,113581,113834,2768042,2770542,2782710,2802393,
%U 3395097,3395503,29315503,29315968,30364544,30418994,30455986,30544186,574739770,574740436
%N Partial sums of A280246 (Product_{d|n} psi(d)).
%C psi(n) is the sum of totatives of n (A023896).
%F a(n) = Sum_{i=1..n} A280246(i).
%t Accumulate@ Table[Product[Total@ Select[Range@ d, CoprimeQ[d, #] &], {d, Divisors@ n}], {n, 37}] (* _Michael De Vlieger_, Dec 30 2016 *)
%o (Magma) [&+[&*[&+[h: h in [1..d] | GCD(h,d) eq 1]: d in Divisors(k)]: k in [1..n]]: n in [1..100]]
%Y Cf. A023896, A280246, A280248.
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Dec 30 2016