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,1

Links

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

Example

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

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 *)

Crossrefs

Cf. A046343, A046345, A071904.

Sequence in context: A001743 A366728 A256964 * A116366 A315849 A138890

Adjacent sequences: A046341 A046342 A046343 * A046345 A046346 A046347

Keyword

nonn

Author

Patrick De Geest, Jun 15 1998

Status

approved