OFFSET
1,2
EXAMPLE
a(4) = 262; a(4) = Sum_{k=1..4} k^(k') = 1^(1') + 2^(2') + 3^(3') + 4^(4') = 1^0 + 2^1 + 3^1 + 4^4 = 262.
MAPLE
a:= n-> add(k^(k*add(i[2]/i[1], i=ifactors(k)[2])), k=1..n):
seq(a(n), n=1..18); # Alois P. Heinz, Oct 14 2021
MATHEMATICA
Accumulate@ Array[#^If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &, 18] (* Michael De Vlieger, Oct 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Oct 14 2021
STATUS
approved