OFFSET
1,1
COMMENTS
A053585(a(n))^2 < a(n).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local F, j;
F:= ifactors(n)[2];
j:= max[index](map(t->t[1], F));
F[j][1]^(2*F[j][2]) < n
end proc:
select(filter, [$2..1000]); # Robert Israel, Nov 30 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
STATUS
approved