OFFSET
1,1
COMMENTS
Includes squares of odd primes.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4) = 18 is a term because A238525(18) = 2 divides 18.
MAPLE
filter:= proc(n) local t, s, r;
if isprime(n) then return false fi;
s:= add(t[1]*t[2], t=ifactors(n)[2]);
r:= n mod s;
r <> 0 and n mod r = 0;
end proc:
select(filter, [$4..1000]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Mar 17 2021
STATUS
approved