A046344 - OEIS

%I #18 May 29 2021 12:20:54

%S 6,8,10,10,9,14,12,16,11,14,20,16,22,13,18,26,13,18,12,22,32,20,34,24,

%T 17,15,40,28,19,24,22,44,15,46,26,14,50,24,34,17,23,36,56,30,19,26,25,

%U 17,62,64,42,28,16,21,70,36,46,29,30,74,48,38,76,30,16,21,52,82,15,19

%N Sum of the prime factors of the odd composite numbers (counted with multiplicity).

%H John Cerkan, <a href="/A046344/b046344.txt">Table of n, a(n) for n = 1..10000</a>

%e a(54)=21 because 195 = 3 * 5 * 13 and 21 = 3 + 5 + 13.

%t t={}; Do[If[!PrimeQ[n],AppendTo[t,Total[Times@@@FactorInteger[n]]]],{n,9,245,2}]; t (* _Jayanta Basu_, Jun 04 2013 *)

%t spf[n_]:=Total[Flatten[Table[#[[1]],#[[2]]]&/@FactorInteger[n]]]; spf/@ Select[Range[9,501,2],CompositeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 29 2021 *)

%Y Cf. A046343, A046345, A071904.

%K nonn

%O 1,1

%A _Patrick De Geest_, Jun 15 1998