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

2, 3, 4, 7, 8, 9, 24, 27, 28, 32, 33, 42, 52, 53, 58, 59, 67, 77, 88, 89, 93, 202, 203, 258, 284, 303, 324, 329, 377, 383, 422, 669, 818, 832, 843, 878, 882, 887, 949, 2027, 2042, 2673, 3144, 3222, 3253, 3302, 3308, 3737, 3773, 3953, 3979, 3983, 4779, 5353, 5669

Offset: 1

Author

Lekraj Beedassy, Oct 15 2005

Keywords

• base
• nonn

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)

Crossrefs

Cf. A029783, A029785.

For the corresponding n^4, see A113316.

Programs

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 *)

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

Extensions

Corrected and extended by Robert G. Wilson v and Ray Chandler, Oct 17 2005