OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Wikipedia, Radical of an integer.
FORMULA
a(n) = Sum_{k=1..n} A064549(k).
a(n) ~ c * n^3 / 3, where c = A065463. - Amiram Eldar, Dec 09 2023
EXAMPLE
a(4) = 22; a(4) = Sum_{k=1..4} k * rad(k) = 1*rad(1) + 2*rad(2) + 3*rad(3) + 4*rad(4) = 1*1 + 2*2 + 3*3 + 4*2 = 22.
MATHEMATICA
f[n_] := n * Times @@ FactorInteger[n][[;; , 1]]; Accumulate @ Array[f, 50] (* Amiram Eldar, Jan 29 2022 *)
PROG
(PARI) a(n) = sum(k=1, n, k*factorback(factorint(k)[, 1])); \\ Michel Marcus, Jan 30 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jan 28 2022
STATUS
approved