%I
%S 1,4,5,6,9,10,11,12,21,24,25,29,32,33,34,39,40,49,50,51,54,56,59,60,
%T 61,64,65,67,71,72,73,75,76,90,97,99,100,101,102,106,109,110,114,119,
%U 120,124,125,129,137,153,176,201,202,210,212,224,228,231,233,236
%N Numbers n such that the digits of n are also digits of n^3.
%C Presumably if a digit d appears k times in n, then it should appear at least k times in n^3.  _N. J. A. Sloane_, Nov 24 2018
%H Harvey P. Dale, <a href="/A064931/b064931.txt">Table of n, a(n) for n = 1..1000</a>
%e 12^3 = 1728, which contains all digits of 12, so 12 is a term of the sequence.
%t Select[Range[400],Min[DigitCount[#^3]DigitCount[#]]>1&] (* _Harvey P. Dale_, Nov 24 2018 *)
%K nonn,base
%O 1,2
%A _Joseph L. Pe_, Feb 14 2002
%E Corrected and Mathematica program replaced by _Harvey P. Dale_, Nov 24 2018
