This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085236 #6 Nov 30 2016 13:11:51 %S A085236 12,24,30,40,45,48,56,60,63,70,80,84,90,96,105,112,120,126,132,135, %T A085236 140,144,154,160,165,168,175,176,180,182,189,192,195,198,208,210,220, %U A085236 224,231,234,240,252,260,264,270,273,275,280,286,288,297,306,308,312 %N A085236 (Greatest power of greatest prime factor of n) < square root(n). %C A085236 A053585(a(n))^2 < a(n). %H A085236 Robert Israel, <a href="/A085236/b085236.txt">Table of n, a(n) for n = 1..10000</a> %p A085236 filter:= proc(n) local F,j; %p A085236 F:= ifactors(n)[2]; %p A085236 j:= max[index](map(t->t[1],F)); %p A085236 F[j][1]^(2*F[j][2]) < n %p A085236 end proc: %p A085236 select(filter, [$2..1000]); # _Robert Israel_, Nov 30 2016 %K A085236 nonn %O A085236 1,1 %A A085236 _Reinhard Zumkeller_, Jun 22 2003