%I #22 Nov 02 2017 19:13:10
%S 1,3,6,14,19,163,170,554,716,19916,19927,1264087,1264100,5779940,
%T 7237940,17559860,17559877,75264356677,75264356696,353956196696,
%U 355036399736,1254282070136,1254282070159,16687983940438159,16687983940813159,17351136747929959,17351143890496999
%N Partial sums of A066570.
%F a(n) = Sum_{i=1..n} A066570(i).
%p ListTools:-PartialSums([seq(A066570(n), n=1..27)]); # _Peter Luschny_, Nov 02 2017
%t Table[Times @@ Select[Range[1, n], !CoprimeQ[#, n]&], {n, 1, 26}] // Accumulate (* _Jean-François Alcover_, Nov 02 2017 *)
%Y Cf. A066570(n) = the product of cototatives of n.
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Jan 14 2017
%E Edited by _Peter Luschny_, Nov 02 2017
|