This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079647 #9 Dec 04 2013 14:19:19 %S A079647 1,2,3,4,6,8,12,16,20,24,30,36,42,48,63,64,72,80,100,120,195,210,240, %T A079647 288,306,324,342,399,420,441,462,483,528,552,576,600,624,728,729,756, %U A079647 783,900,1190,1260,1764,1848,1980,2600,2652,2704,3024,3080,3136,3192 %N A079647 Integer part of the cube root of n and integer part of the square root of n both divide n. %e A079647 floor(20^(1/2)) = 4 and floor(20^(1/3)) = 2, hence 20 is in the sequence. %t A079647 Select[Range[3192], Mod[#, Floor[Sqrt[#]]] == 0 && Mod[#, Floor[#^(1/3)]] == 0 &] (* _T. D. Noe_, Dec 04 2013 *) %o A079647 (PARI) isok(n) = !(n % sqrtint(n)) && !(n % sqrtnint(n, 3)); \\ _Michel Marcus_, Dec 02 2013 %Y A079647 Cf. A006446. %K A079647 nonn %O A079647 1,2 %A A079647 _Benoit Cloitre_, Jan 31 2003 %E A079647 Terms corrected by _Michel Marcus_, Dec 02 2013