A224787 Sum of cubes of prime factors of n (counted with multiplicity).

0, 8, 27, 16, 125, 35, 343, 24, 54, 133, 1331, 43, 2197, 351, 152, 32, 4913, 62, 6859, 141, 370, 1339, 12167, 51, 250, 2205, 81, 359, 24389, 160, 29791, 40, 1358, 4921, 468, 70, 50653, 6867, 2224, 149, 68921, 378, 79507, 1347, 179, 12175, 103823, 59, 686, 258

Offset: 1

Author

Jiwon Lee, Apr 17 2013

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001414, A067666.

Programs

Maple

A224787 := proc(n)
    local a,pe,p,e ;
    a := 0 ;
    for pe in ifactors(n)[2] do
        p := op(1,pe) ;
        e := op(2,pe) ;
        a := a+e*p^3;
    end do:
    a ;
end proc:
seq(A224787(n),n=1..20) ; # R. J. Mathar, Mar 25 2025

Mathematica

Join[{0}, Table[{p, e} = Transpose[FactorInteger[n]]; Total[e*p^3], {n, 2, 50}]] (* T. D. Noe, Apr 17 2013 *)

Extensions

Extended by T. D. Noe, Apr 17 2013