OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5) = 20 is a term because sopfr(20) = 2*2+5 = 9, and 20 is divisible by (20 mod 9)+floor(20/9) = 4.
MAPLE
spf:= proc(n) local t; add(t[1]*t[2], t=ifactors(n)[2]) end proc:
filter:= proc(n) local s, m;
if isprime(n) then return false fi;
s:= spf(n);
m:= n mod s;
n mod (m + (n-m)/s) = 0
end proc:
select(filter, [$4..500]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Feb 08 2021
STATUS
approved