|
%I #6 Nov 30 2016 13:11:51
%S 12,24,30,40,45,48,56,60,63,70,80,84,90,96,105,112,120,126,132,135,
%T 140,144,154,160,165,168,175,176,180,182,189,192,195,198,208,210,220,
%U 224,231,234,240,252,260,264,270,273,275,280,286,288,297,306,308,312
%N (Greatest power of greatest prime factor of n) < square root(n).
%C A053585(a(n))^2 < a(n).
%H Robert Israel, <a href="/A085236/b085236.txt">Table of n, a(n) for n = 1..10000</a>
%p filter:= proc(n) local F,j;
%p F:= ifactors(n)[2];
%p j:= max[index](map(t->t[1],F));
%p F[j][1]^(2*F[j][2]) < n
%p end proc:
%p select(filter, [$2..1000]); # _Robert Israel_, Nov 30 2016
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 22 2003
|
