|
%I #7 Aug 11 2014 22:45:22
%S 0,4,9,16,25,25,49,36,36,49,121,49,169,81,64,64,289,64,361,81,100,169,
%T 529,81,100,225,81,121,841,100,961,100,196,361,144,100,1369,441,256,
%U 121,1681,144,1849,225,121,625,2209,121,196,144,400,289,2809,121,256
%N Square of the sum of the prime factors of n (with repetition).
%H Harvey P. Dale, <a href="/A074373/b074373.txt">Table of n, a(n) for n = 1..1000</a>
%H Neville Holmes, <a href="http://www.comp.utas.edu.au/users/nholmes/sqncs/cmbntns.htm#A074373">Integer Sequence Combinations</a>
%e a(12)=49 because 12=2*2*3, 2+2+3=7 and 7^2 = 49.
%t sspf[n_]:=Total[Flatten[Table[#[[1]],{#[[2]]}]&/@FactorInteger[ n]]]^2; Join[{0},Array[sspf,60,2]] (* _Harvey P. Dale_, Sep 24 2012 *)
%Y Equals A001414^2.
%K easy,nonn
%O 1,2
%A _W. Neville Holmes_, Aug 28 2002
|
