OFFSET
1,1
LINKS
MAPLE
filter:= proc(n) local F, t;
F:= ifactors(n)[2];
mul((nextprime(t[1])/t[1])^t[2], t=F) > 4
end proc:
select(filter, [$1..1000]); # Robert Israel, Dec 31 2023
MATHEMATICA
filter[n_] := With[{F = FactorInteger[n]}, Product[(NextPrime[t[[1]]]/t[[1]])^t[[2]], {t, F}] > 4];
Select[Range[1000], filter] (* Jean-François Alcover, Sep 25 2024, after Robert Israel *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 26 2020
STATUS
approved