|
%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
|
