|
|
A029778
|
|
Digits of n^3 appear in n.
|
|
2
|
|
|
0, 1, 10, 100, 1000, 10000, 100000, 106239, 107624, 109573, 121894, 126045, 126540, 132485, 132654, 136825, 138624, 159406, 165640, 192574, 203198, 205738, 215806, 251894, 281306, 281536, 318725, 419375, 427863, 568314
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[0, 600000], SubsetQ[IntegerDigits[#], IntegerDigits[#^3]]&] (* using SubsetQ function from Mathematica 10 *) (* Harvey P. Dale, Jul 13 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|