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

6, 8, 10, 10, 9, 14, 12, 16, 11, 14, 20, 16, 22, 13, 18, 26, 13, 18, 12, 22, 32, 20, 34, 24, 17, 15, 40, 28, 19, 24, 22, 44, 15, 46, 26, 14, 50, 24, 34, 17, 23, 36, 56, 30, 19, 26, 25, 17, 62, 64, 42, 28, 16, 21, 70, 36, 46, 29, 30, 74, 48, 38, 76, 30, 16, 21, 52, 82, 15, 19

Offset: 1

Author

Patrick De Geest, Jun 15 1998

Keywords

• nonn

Examples

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

Links

• John Cerkan, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A046343, A046345, A071904.

Programs

Mathematica

t={}; Do[If[!PrimeQ[n],AppendTo[t,Total[Times@@@FactorInteger[n]]]],{n,9,245,2}]; t (* Jayanta Basu, Jun 04 2013 *)
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 *)