A079647 - OEIS

%I #9 Dec 04 2013 14:19:19

%S 1,2,3,4,6,8,12,16,20,24,30,36,42,48,63,64,72,80,100,120,195,210,240,

%T 288,306,324,342,399,420,441,462,483,528,552,576,600,624,728,729,756,

%U 783,900,1190,1260,1764,1848,1980,2600,2652,2704,3024,3080,3136,3192

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

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

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

%o (PARI) isok(n) = !(n % sqrtint(n)) && !(n % sqrtnint(n, 3)); \\ _Michel Marcus_, Dec 02 2013

%Y Cf. A006446.

%K nonn

%O 1,2

%A _Benoit Cloitre_, Jan 31 2003

%E Terms corrected by _Michel Marcus_, Dec 02 2013