A272826 Cubes whose digits are powers of 2.
1, 8, 21811182184
Offset: 1
Examples
21811182184 is a term as its digits are only powers of 2; its cube root is 2794.
Crossrefs
Programs
-
Mathematica
Select[Range[1000000]^3, SubsetQ[{1,2,4,8}, IntegerDigits@#]&]
-
PARI
is(n)=ispower(n,3) && #setintersect(Set(digits(n)),[0,3,5,6,7,9])==0 \\ Charles R Greathouse IV, May 08 2016
Comments