%I #8 Sep 17 2024 12:34:31
%S 1,2,29,61,211,224,259,331,406,456,704,758,774,819,822,906,1578,1708,
%T 1768,2246,2313,2332,2474,3409,3982,4006,4046,4331,4347,4348,4367,
%U 4376,4608,4832,4865,4921,5226,5332,5477,5554,5692,5774,5971,6357,6408,6449
%N Numbers with no zeros such that the product of the digits of its cube is also a cube.
%D Felice Russo, A set of new Smarandache Functions, Sequences and conjectures in number theory, American Research Press, Lupton USA.
%e 224 belongs to this sequence as 224^3 = 11239424 and the product of the digits = 1728 = 12^3.
%t Do[a = Apply[Times, IntegerDigits[n^3]]; If[ a != 0 && IntegerQ[a^(1/3)], Print[n]], {n, 1, 10^4} ]
%K nonn,base
%O 1,2
%A _Amarnath Murthy_, Jan 05 2002
%E More terms from _Robert G. Wilson v_, Jan 15 2002
%E Offset changed by _Andrew Howroyd_, Sep 17 2024