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 A162530 #13 May 19 2019 15:24:04 %S A162530 100,110,120,130,140,150,160,170,190,200,230,250,290,310,370,410,430, %T A162530 470,530,590,610,670,710,730,790,830,890,970,1010,1030,1070,1090,1130, %U A162530 1270,1310,1370,1390,1490,1510,1570,1630,1670,1730,1790,1810,1910,1930 %N A162530 Numbers k whose largest divisor <= sqrt(k) equals 10. %C A162530 See A161344 for more information. %H A162530 Robert Israel, <a href="/A162530/b162530.txt">Table of n, a(n) for n = 1..10000</a> %F A162530 Numbers k such that A033676(k) = 10. %p A162530 filter:= n -> andmap(t -> t<=10 or t^2 > n, numtheory:-divisors(n)): %p A162530 select(filter, [seq(n,n=100..10000,10)]); # _Robert Israel_, Aug 16 2018 %t A162530 ld10Q[n_]:=Last[Select[Divisors[n],#<=Sqrt[n]&]]==10; Select[Range[2000],ld10Q] (* _Harvey P. Dale_, Jan 30 2011 *) %Y A162530 Cf. A033676, A008578, A161344, A161345, A161424, A161835, A162526, A162527, A162528, A162529, A162531, A162532. %K A162530 easy,nonn %O A162530 1,1 %A A162530 _Omar E. Pol_, Jul 05 2009 %E A162530 More terms from _Gerard P. Michon_, Jul 12 2009