A085236 - OEIS

%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