A253606 Numbers n such that digits of n are not present in n^8.
3, 4, 8, 9, 22, 33, 43, 54, 59, 73, 222, 233, 353, 712, 777, 22224
Offset: 1
Examples
4^8 = 65536 which does not contain the digit 4.
Programs
-
Mathematica
a253606[n_] := Block[{f}, f[x_] := MemberQ[IntegerDigits[x^8], #] & /@ IntegerDigits[x]; Select[Range@n, DeleteDuplicates@f[#] == {False} &]]; a253606[10^5] (* Michael De Vlieger, Jan 06 2015 *)
-
Python
A253606_list = [n for n in range(1,10**6) if set(str(n)) & set(str(n**8)) == set()]
Comments