cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A046344 #18 May 29 2021 12:20:54
%S A046344 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 A046344 17,15,40,28,19,24,22,44,15,46,26,14,50,24,34,17,23,36,56,30,19,26,25,
%U A046344 17,62,64,42,28,16,21,70,36,46,29,30,74,48,38,76,30,16,21,52,82,15,19
%N A046344 Sum of the prime factors of the odd composite numbers (counted with multiplicity).
%H A046344 John Cerkan, <a href="/A046344/b046344.txt">Table of n, a(n) for n = 1..10000</a>
%e A046344 a(54)=21 because 195 = 3 * 5 * 13 and 21 = 3 + 5 + 13.
%t A046344 t={}; Do[If[!PrimeQ[n],AppendTo[t,Total[Times@@@FactorInteger[n]]]],{n,9,245,2}]; t (* _Jayanta Basu_, Jun 04 2013 *)
%t A046344 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 A046344 Cf. A046343, A046345, A071904.
%K A046344 nonn
%O A046344 1,1
%A A046344 _Patrick De Geest_, Jun 15 1998