|
|
A162532
|
|
Numbers k such that their largest divisor <= sqrt(k) equals 12.
|
|
19
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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 *)
|
|
CROSSREFS
|
Cf. A033676, A008578, A161344, A161345, A161424, A161835, A162526, A162527, A162528, A162529, A162530, A162531.
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|