|
|
A162526
|
|
Numbers k whose largest divisor <= sqrt(k) equals 6.
|
|
17
|
|
|
36, 42, 48, 54, 60, 66, 78, 102, 114, 138, 174, 186, 222, 246, 258, 282, 318, 354, 366, 402, 426, 438, 474, 498, 534, 582, 606, 618, 642, 654, 678, 762, 786, 822, 834, 894, 906, 942, 978, 1002, 1038, 1074, 1086, 1146, 1158, 1182, 1194, 1266, 1338, 1362
(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 2000 do if A033676(n) = 6 then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jul 13 2009
|
|
MATHEMATICA
|
ld6Q[n_]:=Last[Select[Divisors[n], #<=Sqrt[n]&]]==6; Select[Range[ 1400], ld6Q] (* Harvey P. Dale, Mar 08 2012 *)
|
|
CROSSREFS
|
Cf. A033676, A008578, A161344, A161345, A161424, A161835, A162527, A162528, A162529, A162530, A162531, A162532.
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|