login
When cubed gives number composed just of the digits 1, 2, 3, 4, 5.
2

%I #7 Feb 26 2016 03:03:50

%S 1,5,7,8,11,68,81,177,351,605,1311,1645,1758,2247,2474,2485,2824,6165,

%T 7568,11217,15228,28114,28128,28947,115558,224681,225805,351758,

%U 357141,357147,622407,1039247,1291547,1366824,1490628,1616651,2324085,2371737

%N When cubed gives number composed just of the digits 1, 2, 3, 4, 5.

%H Chai Wah Wu, <a href="/A061813/b061813.txt">Table of n, a(n) for n = 1..200</a>

%t Do[ If[ Union[ Join[ {1, 2, 3, 4, 5}, IntegerDigits[n^3] ] ] == {1, 2, 3, 4, 5}, Print[n] ], {n, 0, 10^7} ]

%K base,nonn

%O 1,2

%A _Robert G. Wilson v_, Jun 23 2001

%E a(37) corrected by _Chai Wah Wu_, Feb 25 2016