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.
%I A075658 #13 Sep 08 2022 08:45:07 %S A075658 14,15,21,26,28,30,33,35,38,39,42,45,46,51,52,55,56,57,60,62,63,65,66, %T A075658 69,70,74,75,76,77,78,84,85,86,87,90,91,92,93,94,95,98,99,102,104,105, %U A075658 106,110,111,112,114,115,117,119,120,122,123,124,126,129,130,132,133 %N A075658 Numbers k such that the sum of prime divisors of k (A008472) is composite. %H A075658 Amiram Eldar, <a href="/A075658/b075658.txt">Table of n, a(n) for n = 1..10000</a> %p A075658 A075658 := proc(n) local i,j,t1,t; t := NULL; for i from 2 to n do t1 := 0; for j from 1 to i do if i mod ithprime(j) = 0 then t1 := t1+ithprime(j); fi; od; if not(isprime(t1)) then t := t,i; fi; od; t; end; %t A075658 Select[Range[133], CompositeQ[Plus @@ FactorInteger[#][[;;,1]]] &] (* _Amiram Eldar_, Nov 14 2019 *) %o A075658 (Magma) f:=func<n|&+PrimeDivisors(n)>; [k:k in [2..150]| not IsPrime(f(k))]; // _Marius A. Burtea_, Nov 14 2019 %Y A075658 Cf. A008472. %K A075658 nonn %O A075658 1,1 %A A075658 _Floor van Lamoen_, Sep 23 2002 and Oct 02 2002 %E A075658 Offset corrected by _Amiram Eldar_, Nov 14 2019