A162532 Numbers k whose largest divisor <= sqrt(k) equals 12.
144, 156, 168, 180, 192, 204, 216, 228, 264, 276, 348, 372, 444, 492, 516, 564, 636, 708, 732, 804, 852, 876, 948, 996, 1068, 1164, 1212, 1236, 1284, 1308, 1356, 1524, 1572, 1644, 1668, 1788, 1812, 1884, 1956, 2004, 2076, 2148, 2172, 2292, 2316, 2364
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
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 3500 do if A033676(n) = 12 then printf("%d,",n) ; fi; od: # R. J. Mathar, Jul 13 2009
-
Mathematica
ld12Q[n_]:=First[Select[Reverse[Divisors[n]],#<=Sqrt[n]&]]==12;Select[ 12*Range[ 200], ld12Q] (* Harvey P. Dale, Mar 29 2013 *)
Formula
Numbers k such that A033676(k)=12.
Extensions
More terms from R. J. Mathar, Jul 13 2009
Comments