%I #15 Apr 18 2013 04:32:33
%S 0,8,27,16,125,35,343,24,54,133,1331,43,2197,351,152,32,4913,62,6859,
%T 141,370,1339,12167,51,250,2205,81,359,24389,160,29791,40,1358,4921,
%U 468,70,50653,6867,2224,149,68921,378,79507,1347,179,12175,103823,59,686,258
%N Sum of cubes of prime factors of n (counted with multiplicity).
%H T. D. Noe, <a href="/A224787/b224787.txt">Table of n, a(n) for n = 1..10000</a>
%t Join[{0}, Table[{p, e} = Transpose[FactorInteger[n]]; Total[e*p^3], {n, 2, 50}]] (* _T. D. Noe_, Apr 17 2013 *)
%Y Cf. A001414, A067666.
%K nonn
%O 1,2
%A _Jiwon Lee_, Apr 17 2013
%E Extended by _T. D. Noe_, Apr 17 2013
|