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 A067071 #18 Apr 13 2025 13:10:35 %S A067071 1,2,29,61,211,224,259,331,406,456,704,758,774,819,822,906,1578,1708, %T A067071 1768,2246,2313,2332,2474,3409,3982,4006,4046,4331,4347,4348,4367, %U A067071 4376,4608,4832,4865,4921,5226,5332,5477,5554,5692,5774,5971,6357,6408,6449 %N A067071 Numbers with no zeros in their cubes such that the products of the digits of their cubes are also cubes. %D A067071 Felice Russo, A set of new Smarandache Functions, Sequences and conjectures in number theory, American Research Press, Lupton USA. %e A067071 224 belongs to this sequence as 224^3 = 11239424 and the product of the digits = 1728 = 12^3. %t A067071 Do[a = Apply[Times, IntegerDigits[n^3]]; If[ a != 0 && IntegerQ[a^(1/3)], Print[n]], {n, 1, 10^4} ] %t A067071 Select[Range[7000],With[{c=Times@@IntegerDigits[#^3]},c>0&&IntegerQ[CubeRoot[c]]]&] (* _Harvey P. Dale_, Apr 13 2025 *) %K A067071 nonn,base %O A067071 1,2 %A A067071 _Amarnath Murthy_, Jan 05 2002 %E A067071 More terms from _Robert G. Wilson v_, Jan 15 2002 %E A067071 Offset changed by _Andrew Howroyd_, Sep 17 2024 %E A067071 Definition clarified by _Harvey P. Dale_, Apr 13 2025