login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Sum of semiprime divisors of n-th composite number.
2

%I #8 May 15 2017 03:06:48

%S 4,6,4,9,10,10,14,15,4,15,14,21,22,10,25,26,9,18,31,4,33,34,35,19,38,

%T 39,14,41,26,24,46,10,49,35,51,30,15,55,18,57,58,35,62,30,4,65,61,38,

%U 69,59,19,74,40,42,77,71,14,9,82,45,85,86,87,26,40,91,50,93,94,95,10

%N Sum of semiprime divisors of n-th composite number.

%H G. C. Greubel, <a href="/A088738/b088738.txt">Table of n, a(n) for n = 1..5000</a>

%t spd[n_]:=Total[Select[Divisors[n],PrimeOmega[#]==2&]]; spd/@Select[ Range[ 100],CompositeQ] (* _Harvey P. Dale_, Nov 25 2014 *)

%Y Cf. A088737, A002808, A001358.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Oct 12 2003