|
| |
|
|
A059172
|
|
Numbers n such that n divided by {largest squarefree to divide n} is > sqrt(n).
|
|
1
| |
|
|
8, 16, 27, 32, 48, 54, 64, 72, 81, 96, 108, 125, 128, 144, 160, 162, 192, 200, 216, 224, 243, 250, 256, 288, 320, 324, 343, 375, 384, 392, 400, 405, 432, 448, 486, 500, 512, 567, 576, 625, 640, 648, 675, 686, 704, 729, 768, 784, 800, 832, 864, 896, 960, 968
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Numbers c which have measure of smoothness J bigger as 2. Where J=Log[c]/Log[N(c)], where N(c) is product of distinct prime divisors of c. [From Artur Jasinski (grafix(AT)csl.pl), Feb 02 2010]
|
|
|
EXAMPLE
| 48 is included because 6 is largest squarefree to divide 48 and 48 /6 = 8 > sqrt(48).
|
|
|
MATHEMATICA
| aa = {}; Do[kk = FactorInteger[c]; nn = 1; Do[nn = nn*kk[[n]][[1]], {n, 1, Length[kk]}]; If[Log[c]/Log[nn] >= 2, AppendTo[aa, c]], {c, 2, 1000}]; aa (*Artur Jasinski*) [From Artur Jasinski (grafix(AT)csl.pl), Feb 02 2010]
|
|
|
CROSSREFS
| Sequence in context: A190519 A180861 A090081 * A107606 A036966 A076467
Adjacent sequences: A059169 A059170 A059171 * A059173 A059174 A059175
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Leroy Quet Feb 14 2001
|
| |
|
|
