OFFSET
1,2
COMMENTS
Numbers of the form k*m where 1 <= k <= 9 and either m=1 or A020639(m) >= 100. - Robert Israel, Mar 11 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
lpf:= n -> min(numtheory:-factorset(n)):
filter:= proc(n) local k;
for k from 9 to 1 by -1 do
if n mod k = 0 then return(lpf(n/k) > 100) fi
od
end proc:
select(filter, [$1..1000]); # Robert Israel, Mar 11 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Henry Bottomley, Mar 14 2000
EXTENSIONS
Missing terms 277, 281, 283, 293, 307, 311, 313 inserted by Robert Israel, Mar 11 2018
STATUS
approved