OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
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;
MATHEMATICA
Select[Range[133], CompositeQ[Plus @@ FactorInteger[#][[;; , 1]]] &] (* Amiram Eldar, Nov 14 2019 *)
PROG
(Magma) f:=func<n|&+PrimeDivisors(n)>; [k:k in [2..150]| not IsPrime(f(k))]; // Marius A. Burtea, Nov 14 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Floor van Lamoen, Sep 23 2002 and Oct 02 2002
EXTENSIONS
Offset corrected by Amiram Eldar, Nov 14 2019
STATUS
approved