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

1, 5, 7, 8, 11, 68, 81, 177, 351, 605, 1311, 1645, 1758, 2247, 2474, 2485, 2824, 6165, 7568, 11217, 15228, 28114, 28128, 28947, 115558, 224681, 225805, 351758, 357141, 357147, 622407, 1039247, 1291547, 1366824, 1490628, 1616651, 2324085, 2371737

Offset

1,2

Links

Chai Wah Wu, Table of n, a(n) for n = 1..200

Mathematica

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

Crossrefs

Sequence in context: A099497 A327960 A347127 * A173664 A171420 A047384

Adjacent sequences: A061810 A061811 A061812 * A061814 A061815 A061816

Keyword

base,nonn

Author

Robert G. Wilson v, Jun 23 2001

Extensions

a(37) corrected by Chai Wah Wu, Feb 25 2016

Status

approved