|
|
A224787
|
|
Sum of cubes of prime factors of n (counted with multiplicity).
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Join[{0}, Table[{p, e} = Transpose[FactorInteger[n]]; Total[e*p^3], {n, 2, 50}]] (* T. D. Noe, Apr 17 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|