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
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..10000
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