A162530 Numbers k whose largest divisor <= sqrt(k) equals 10.

100, 110, 120, 130, 140, 150, 160, 170, 190, 200, 230, 250, 290, 310, 370, 410, 430, 470, 530, 590, 610, 670, 710, 730, 790, 830, 890, 970, 1010, 1030, 1070, 1090, 1130, 1270, 1310, 1370, 1390, 1490, 1510, 1570, 1630, 1670, 1730, 1790, 1810, 1910, 1930

Offset: 1

Author

Omar E. Pol, Jul 05 2009

Keywords

• easy
• nonn

Comments

See A161344 for more information.

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A033676, A008578, A161344, A161345, A161424, A161835, A162526, A162527, A162528, A162529, A162531, A162532.

Programs

Maple

filter:= n -> andmap(t -> t<=10 or t^2 > n, numtheory:-divisors(n)):
select(filter, [seq(n,n=100..10000,10)]); # Robert Israel, Aug 16 2018

Mathematica

ld10Q[n_]:=Last[Select[Divisors[n],#<=Sqrt[n]&]]==10; Select[Range[2000],ld10Q]  (* Harvey P. Dale, Jan 30 2011 *)

Formula

Numbers k such that A033676(k) = 10.

Extensions

More terms from Gerard P. Michon, Jul 12 2009