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,2

Links

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

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 *)

Crossrefs

Cf. A001414, A067666.

Sequence in context: A102637 A250140 A070510 * A361264 A070509 A070508

Adjacent sequences: A224784 A224785 A224786 * A224788 A224789 A224790

Keyword

nonn

Author

Jiwon Lee, Apr 17 2013

Extensions

Extended by T. D. Noe, Apr 17 2013

Status

approved