OFFSET
1,1
COMMENTS
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local a, b;
if isprime(n) then return false fi;
if issqr(n) then return true fi;
a, b:= selectremove(t -> (t^2 <= n), numtheory:-divisors(n));
min(b) mod max(a) = 0
end proc:
select(filter, [$4..1000]); # Robert Israel, Jan 13 2016
MATHEMATICA
Select[Range[2, 900], ! PrimeQ[#] && Divisible[(d = Divisors[#])[[n = Floor[Length[d]/2 + 1]]], d[[-n]]] &] (* Ivan Neretin, Jan 12 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 13 2009
EXTENSIONS
More terms from Max Alekseyev, Feb 21 2010
STATUS
approved