A079647 Integer part of the cube root of n and integer part of the square root of n both divide n.

1, 2, 3, 4, 6, 8, 12, 16, 20, 24, 30, 36, 42, 48, 63, 64, 72, 80, 100, 120, 195, 210, 240, 288, 306, 324, 342, 399, 420, 441, 462, 483, 528, 552, 576, 600, 624, 728, 729, 756, 783, 900, 1190, 1260, 1764, 1848, 1980, 2600, 2652, 2704, 3024, 3080, 3136, 3192

Offset

1,2

Links

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

Example

floor(20^(1/2)) = 4 and floor(20^(1/3)) = 2, hence 20 is in the sequence.

Mathematica

Select[Range[3192], Mod[#, Floor[Sqrt[#]]] == 0 && Mod[#, Floor[#^(1/3)]] == 0 &] (* T. D. Noe, Dec 04 2013 *)

Prog

(PARI) isok(n) = !(n % sqrtint(n)) && !(n % sqrtnint(n, 3)); \\ Michel Marcus, Dec 02 2013

Crossrefs

Cf. A006446.

Sequence in context: A084094 A217689 A018718 * A261205 A036451 A297216

Adjacent sequences: A079644 A079645 A079646 * A079648 A079649 A079650

Keyword

nonn

Author

Benoit Cloitre, Jan 31 2003

Extensions

Terms corrected by Michel Marcus, Dec 02 2013

Status

approved