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) > 3
end proc:
select(filter, [$1..1000]); # Robert Israel, Dec 31 2023
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 26 2020
STATUS
approved