|
|
A019545
|
|
Cubes whose digits are cubes.
|
|
0
|
|
|
0, 1, 8, 1000, 8000, 1000000, 8000000, 1000000000, 8000000000, 1000000000000, 8000000000000, 1000000000000000, 8000000000000000, 1000000000000000000, 8000000000000000000, 1000000000000000000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Join[{0}, Select[FromDigits/@(Flatten[Table[PadRight[{d}, n, 0], {n, 30}, {d, {1, 8}}], 1]), IntegerQ[Surd[#, 3]]&]] (* Harvey P. Dale, Dec 03 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
R. Muller
|
|
STATUS
|
approved
|
|
|
|