login
A281025
Partial sums of A066570.
1
1, 3, 6, 14, 19, 163, 170, 554, 716, 19916, 19927, 1264087, 1264100, 5779940, 7237940, 17559860, 17559877, 75264356677, 75264356696, 353956196696, 355036399736, 1254282070136, 1254282070159, 16687983940438159, 16687983940813159, 17351136747929959, 17351143890496999
OFFSET
1,2
FORMULA
a(n) = Sum_{i=1..n} A066570(i).
MAPLE
ListTools:-PartialSums([seq(A066570(n), n=1..27)]); # Peter Luschny, Nov 02 2017
MATHEMATICA
Table[Times @@ Select[Range[1, n], !CoprimeQ[#, n]&], {n, 1, 26}] // Accumulate (* Jean-François Alcover, Nov 02 2017 *)
CROSSREFS
Cf. A066570(n) = the product of cototatives of n.
Sequence in context: A083356 A096337 A175318 * A109757 A075189 A291987
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 14 2017
EXTENSIONS
Edited by Peter Luschny, Nov 02 2017
STATUS
approved