OFFSET
1,1
COMMENTS
The number of k-digit numbers for which this occurs is: 6,15,18,32,21,14,20,...
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..179 (terms < 10^19, first 136 terms from Chai Wah Wu)
MATHEMATICA
Select[Range[6000], Intersection[IntegerDigits[ # ], IntegerDigits[ #^4]] == {} &] (* Ray Chandler, Oct 17 2005 *)
fQ[n_] := Intersection[ Union[ IntegerDigits[n]], Union[ IntegerDigits[n^4]]] == {}; Select[ Range[ 5887], fQ[ # ] &] (* Robert G. Wilson v *)
PROG
(Python)
A111116_list = [n for n in range(1, 10**6) if set(str(n)) & set(str(n**4)) == set()]
# Chai Wah Wu, Jan 05 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Lekraj Beedassy, Oct 15 2005
EXTENSIONS
Corrected and extended by Robert G. Wilson v and Ray Chandler, Oct 17 2005
STATUS
approved