|
%I
%S 0,1,10,100,1000,10000,100000,1000000,4152760,9845261,10000000,
%T 10253497,10357426,10384796,10972365,12546973,13247805,15942760,
%U 16537428,17534690,18326705,18392576,18492763,18659437,19728603
%N n, n^2 and n^3 all have same digits.
%t Select[Range[0,2*10^7],Union[IntegerDigits[#]]==Union[ IntegerDigits[ #^2]] == Union[IntegerDigits[#^3]]&] (* _Harvey P. Dale_, Nov 04 2015 *)
%K nonn,base
%O 0,3
%A _Patrick De Geest_
|
