login
A162528
Numbers k whose largest divisor <= sqrt(k) equals 8.
20
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.
All terms after a(8) = 128 are 8 times a prime; only 6 terms (for n = 1, 2, 3, 5, 7 and 8) are not of this form. - M. F. Hasler, Mar 28 2026
FORMULA
Numbers k such that A033676(k)=8.
a(n) = 8*prime(n-2) for all n > 8. - M. F. Hasler, Mar 28 2026
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 *)
PROG
(PARI) apply( {A162528(n)=if(n>8, prime(n-2), n+8-(n<8))*8}, [1..66]) \\ M. F. Hasler, Mar 28 2026
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 05 2009
EXTENSIONS
More terms from R. J. Mathar, Jul 13 2009
STATUS
approved