A129525 - OEIS

%I #5 Nov 21 2013 12:49:04

%S 1,2,3,4,5,6,8,9,12,13,16,17,18,19,21,22,24,27,29,32,35,38,41,59,66,

%T 69,73,75,76,84,88,93,97,135,145,203,289,297,302,319

%N Numbers n such that all the digits of n^3 are distinct.

%e 319^3 = 32461759, is the largest number with all different digits in its cube.

%t Select[Range[10000], Length[IntegerDigits[ # ^3]] == Length[Union[IntegerDigits[ # ^3]]] &]

%t Select[Range[10000],Max[DigitCount[#^3]]==1&] (* _Harvey P. Dale_, May 01 2012 *)

%K base,fini,full,nonn

%O 1,2

%A _Tanya Khovanova_, May 29 2007