A113316 Fourth powers m^4 none of whose digits are present in their corresponding roots m.
16, 81, 256, 2401, 4096, 6561, 331776, 531441, 614656, 1048576, 1185921, 3111696, 7311616, 7890481, 11316496, 12117361, 20151121, 35153041, 59969536, 62742241, 74805201, 1664966416, 1698181681, 4430766096, 6505390336, 8428892481
Offset: 1
Links
- Giovanni Resta, Table of n, a(n) for n = 1..179 (terms < 10^76, first 100 terms from Harvey P. Dale)
Programs
-
Mathematica
Select[Range[350]^4,Intersection[IntegerDigits[#], IntegerDigits[ Surd[ #,4]]] =={}&] (* Harvey P. Dale, Dec 19 2015 *)
Comments