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
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 14 2017
EXTENSIONS
Edited by Peter Luschny, Nov 02 2017
STATUS
approved