OFFSET
1,1
EXAMPLE
MATHEMATICA
f[n_] := n + Plus @@ (FactorInteger[n][[;; , 1]] - 1); m = 500; Complement[Range[1, m, 2], Array[f, m]] (* Amiram Eldar, Apr 20 2022 *)
PROG
(PARI) f(n) = n + vecsum(factor(n)[, 1]) - omega(n); \\ A332775
lista(nn) = setminus(Set(select(x->(x%2), [1..nn])), Set(vector(nextprime(2*nn), k, f(k)))); \\ Michel Marcus, Apr 20 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Apr 19 2022
EXTENSIONS
More terms from Michel Marcus, Apr 20 2022
STATUS
approved