|
|
A287882
|
|
a(n) = Sum_{ i <= n, i squarefree} A080670(i).
|
|
3
|
|
|
1, 3, 6, 6, 11, 34, 41, 41, 41, 66, 77, 77, 90, 117, 152, 152, 169, 169, 188, 188, 225, 436, 459, 459, 459, 672, 672, 672, 701, 936, 967, 967, 1278, 1495, 1552, 1552, 1589, 1808, 2121, 2121, 2162, 2399, 2442, 2442, 2442, 2665, 2712, 2712, 2712, 2712, 3029, 3029, 3082, 3082, 3593, 3593, 3912
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
A080670 = Cases[Import["https://oeis.org/A080670/b080670.txt", "Table"], {_, _}][[All, 2]];
Accumulate[Table[If[SquareFreeQ[n], A080670[[n]], 0], {n, 57}] ] (* Robert Price, Mar 16 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|