A162528 Numbers k whose largest divisor <= sqrt(k) equals 8.

64, 72, 80, 88, 96, 104, 112, 128, 136, 152, 184, 232, 248, 296, 328, 344, 376, 424, 472, 488, 536, 568, 584, 632, 664, 712, 776, 808, 824, 856, 872, 904, 1016, 1048, 1096, 1112, 1192, 1208, 1256, 1304, 1336, 1384, 1432, 1448, 1528, 1544, 1576, 1592, 1688

Offset

1,1

Comments

See A161344 for more information.

Links

Table of n, a(n) for n=1..49.

Formula

Numbers k such that A033676(k)=8.

Maple

A033676 := proc(n) local dvs; dvs := sort(convert(numtheory[divisors](n), list)) ; op(floor((nops(dvs)+1)/2) , dvs) ; end: for n from 1 to 2000 do if A033676(n) = 8 then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jul 13 2009

Mathematica

ld8Q[n_]:=Last[Select[Divisors[n], #<=Sqrt[n]&]]==8; Select[Range[ 2000], ld8Q] (* Harvey P. Dale, Apr 08 2017 *)

Crossrefs

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

Sequence in context: A070931 A095533 A044864 * A057371 A045286 A334825

Adjacent sequences: A162525 A162526 A162527 * A162529 A162530 A162531

Keyword

easy,nonn

Author

Omar E. Pol, Jul 05 2009

Extensions

More terms from R. J. Mathar, Jul 13 2009

Status

approved