A111116 - OEIS

%I #21 Oct 12 2019 11:50:54

%S 2,3,4,7,8,9,24,27,28,32,33,42,52,53,58,59,67,77,88,89,93,202,203,258,

%T 284,303,324,329,377,383,422,669,818,832,843,878,882,887,949,2027,

%U 2042,2673,3144,3222,3253,3302,3308,3737,3773,3953,3979,3983,4779,5353,5669

%N Numbers n such that digits of n are not present in n^4.

%C The number of k-digit numbers for which this occurs is: 6,15,18,32,21,14,20,...

%H Giovanni Resta, <a href="/A111116/b111116.txt">Table of n, a(n) for n = 1..179</a> (terms < 10^19, first 136 terms from Chai Wah Wu)

%t Select[Range[6000], Intersection[IntegerDigits[ # ], IntegerDigits[ #^4]] == {} &] (* _Ray Chandler_, Oct 17 2005 *)

%t fQ[n_] := Intersection[ Union[ IntegerDigits[n]], Union[ IntegerDigits[n^4]]] == {}; Select[ Range[ 5887], fQ[ # ] &] (* _Robert G. Wilson v_ *)

%o (Python)

%o A111116_list = [n for n in range(1,10**6) if set(str(n)) & set(str(n**4)) == set()]

%o # _Chai Wah Wu_, Jan 05 2015

%Y Cf. A029783, A029785.

%Y For the corresponding n^4, see A113316.

%K base,nonn

%O 1,1

%A _Lekraj Beedassy_, Oct 15 2005

%E Corrected and extended by _Robert G. Wilson v_ and _Ray Chandler_, Oct 17 2005