A287882 a(n) = Sum_{ i <= n, i squarefree} A080670(i).
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
Offset: 1
Keywords
Links
- N. J. A. Sloane, Table of n, a(n) for n = 1..20000
Programs
-
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 *)
Comments