%I #11 Jan 08 2015 17:37:05
%S 3,4,8,9,22,33,43,54,59,73,222,233,353,712,777,22224
%N Numbers n such that digits of n are not present in n^8.
%C a(17) > 10^9.
%e 4^8 = 65536 which does not contain the digit 4.
%t a253606[n_] := Block[{f},
%t f[x_] := MemberQ[IntegerDigits[x^8], #] & /@ IntegerDigits[x];
%t Select[Range@n, DeleteDuplicates@f[#] == {False} &]]; a253606[10^5] (* _Michael De Vlieger_, Jan 06 2015 *)
%o (Python)
%o A253606_list = [n for n in range(1,10**6) if set(str(n)) & set(str(n**8)) == set()]
%Y Cf. A111116, A253577.
%K nonn,base,more
%O 1,1
%A _Chai Wah Wu_, Jan 05 2015