login
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
OFFSET
1,2
MATHEMATICA
fQ[n_]:=Module[{s1, s2, s3}, s1=ToString[n^3]; s2=IntegerDigits[n]^3; s3=ToString/@s2; Union[StringCases[s1, s3]]==Union[s3]];
Select[Range@900, fQ[#]&] (* Ivan N. Ianakiev, Sep 15 2015 *)
CROSSREFS
Sequence in context: A246200 A262356 A277861 * A261370 A257737 A130577
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Mar 01 2010
STATUS
approved