|
| |
|
|
A046099
|
|
Numbers that are not cube-free. Numbers divisible by a cube greater than 1. Complement of A004709.
|
|
16
| |
|
|
8, 16, 24, 27, 32, 40, 48, 54, 56, 64, 72, 80, 81, 88, 96, 104, 108, 112, 120, 125, 128, 135, 136, 144, 152, 160, 162, 168, 176, 184, 189, 192, 200, 208, 216, 224, 232, 240, 243, 248, 250, 256, 264, 270, 272, 280, 288, 296, 297, 304, 312, 320, 324, 328, 336
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Also called cubeful numbers, but this term is ambiguous and is best avoided.
Numbers n such that A007427(n)=sum(d|n,mu(d)*mu(n/d))==0 - Benoit Cloitre (benoit7848c(AT)orange.fr), Apr 17 2002
The convention in the OEIS is that squareful, cubeful, biquadrateful (A046101), ... mean the same as "not squarefree" etc., while 2- or square-full, 3- or cube-full (A036966), 4-full (A036967) are used for Golomb's notion of powerful numbers (A001694, see references there), when each prime factor occurs to a power > 1. - M. F. Hasler (www.univ-ag.fr/~mhasler), Feb 12 2008
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
|
MATHEMATICA
| lst={}; Do[a=0; Do[If[FactorInteger[m][[n, 2]]>2, a=1], {n, Length[FactorInteger[m]]}]; If[a==1, AppendTo[lst, m]], {m, 10^3}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 15 2008]
|
|
|
CROSSREFS
| Complement of A004709.
Cf. A036966, A046101, A001694.
Sequence in context: A062171 A048108 A137845 * A033859 A177899 A144566
Adjacent sequences: A046096 A046097 A046098 * A046100 A046101 A046102
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
|
|
EXTENSIONS
| Added more terms and Mathematica program. Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 15 2008
Edited by N. J. A. Sloane, Jul 27 2009
|
| |
|
|
