[go: up one dir, main page]

login
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
OFFSET
1,1
COMMENTS
See A161344 for more information.
FORMULA
Numbers k such that A033676(k)=6.
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 *)
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 05 2009
EXTENSIONS
More terms from R. J. Mathar, Jul 13 2009
STATUS
approved