|
|
A173902
|
|
Numbers n with property that the cube of each digit of n is a substring of n^3.
|
|
1
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 20, 22, 30, 32, 40, 50, 60, 70, 80, 90, 100, 101, 102, 103, 110, 111, 112, 120, 122, 200, 201, 202, 212, 220, 221, 222, 300, 301, 302, 320, 400, 401, 402, 405, 500, 501, 600, 700, 800, 900
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
fQ[n_]:=Module[{s1, s2, s3}, s1=ToString[n^3]; s2=IntegerDigits[n]^3; s3=ToString/@s2; Union[StringCases[s1, s3]]==Union[s3]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|