OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local g;
g:= max(numtheory:-factorset(n));
n-g+1, n-g-1
end proc:
sort(convert({$1..5000} minus map(f, {$1..10001}), list)); # Robert Israel, Apr 12 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian Bagshaw, Mar 16 2021
STATUS
approved