OFFSET
1,2
COMMENTS
Numbers k such that there is no x where the sum of the nontrivial divisors of x and the nontrivial divisors of x+k is k.
MAPLE
g:= proc(n) NumberTheory:-sigma(n)-n-1 end proc:
g(1):= 0:
filter:= proc(n) local x, t;
for x from 1 to n^2 do
t:= g(x+n);
if t > n then next fi;
if g(x) + t = n then return false fi
od;
true
end proc:
select(filter, [$1..800]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, May 17 2026
STATUS
approved
