login
A088738
Sum of semiprime divisors of n-th composite number.
2
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, 39, 14, 41, 26, 24, 46, 10, 49, 35, 51, 30, 15, 55, 18, 57, 58, 35, 62, 30, 4, 65, 61, 38, 69, 59, 19, 74, 40, 42, 77, 71, 14, 9, 82, 45, 85, 86, 87, 26, 40, 91, 50, 93, 94, 95, 10
OFFSET
1,1
LINKS
MATHEMATICA
spd[n_]:=Total[Select[Divisors[n], PrimeOmega[#]==2&]]; spd/@Select[ Range[ 100], CompositeQ] (* Harvey P. Dale, Nov 25 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 12 2003
STATUS
approved