Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #13 Mar 04 2020 16:45:29
%S 0,1,10,100,1000,10000,100000,106239,107624,109573,121894,126045,
%T 126540,132485,132654,136825,138624,159406,165640,192574,203198,
%U 205738,215806,251894,281306,281536,318725,419375,427863,568314
%N Digits of n^3 appear in n.
%H Harvey P. Dale, <a href="/A029778/b029778.txt">Table of n, a(n) for n = 1..1601</a>
%F a(n) = A029779(n)^(1/3). - _Sean A. Irvine_, Mar 04 2020
%t Select[Range[0,600000],SubsetQ[IntegerDigits[#],IntegerDigits[#^3]]&] (* using SubsetQ function from Mathematica 10 *) (* _Harvey P. Dale_, Jul 13 2014 *)
%Y Cf. A029779.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
%E Offset corrected by _Sean A. Irvine_, Mar 04 2020