A162526 Numbers k whose largest divisor <= sqrt(k) equals 6.

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.

Links

Table of n, a(n) for n=1..50.

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 *)

Crossrefs

Cf. A033676, A008578, A161344, A161345, A161424, A161835, A162527, A162528, A162529, A162530, A162531, A162532.

Sequence in context: A261372 A044862 A376834 * A078299 A225028 A239802

Adjacent sequences: A162523 A162524 A162525 * A162527 A162528 A162529

Keyword

easy,nonn

Author

Omar E. Pol, Jul 05 2009

Extensions

More terms from R. J. Mathar, Jul 13 2009

Status

approved