cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A111116 #21 Oct 12 2019 11:50:54
%S A111116 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 A111116 284,303,324,329,377,383,422,669,818,832,843,878,882,887,949,2027,
%U A111116 2042,2673,3144,3222,3253,3302,3308,3737,3773,3953,3979,3983,4779,5353,5669
%N A111116 Numbers n such that digits of n are not present in n^4.
%C A111116 The number of k-digit numbers for which this occurs is: 6,15,18,32,21,14,20,...
%H A111116 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 A111116 Select[Range[6000], Intersection[IntegerDigits[ # ], IntegerDigits[ #^4]] == {} &] (* _Ray Chandler_, Oct 17 2005 *)
%t A111116 fQ[n_] := Intersection[ Union[ IntegerDigits[n]], Union[ IntegerDigits[n^4]]] == {}; Select[ Range[ 5887], fQ[ # ] &] (* _Robert G. Wilson v_ *)
%o A111116 (Python)
%o A111116 A111116_list = [n for n in range(1,10**6) if set(str(n)) & set(str(n**4)) == set()]
%o A111116 # _Chai Wah Wu_, Jan 05 2015
%Y A111116 Cf. A029783, A029785.
%Y A111116 For the corresponding n^4, see A113316.
%K A111116 base,nonn
%O A111116 1,1
%A A111116 _Lekraj Beedassy_, Oct 15 2005
%E A111116 Corrected and extended by _Robert G. Wilson v_ and _Ray Chandler_, Oct 17 2005