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

1, 7, 11, 68, 1039247

Offset

1,2

Comments

No more terms through 10^13. - Jon E. Schoenfield, Jul 03 2010

No more terms through 5*10^16. - David A. Corneth, Mar 17 2019

Links

Table of n, a(n) for n=1..5.

Mathematica

Do[ If[ Union[ Join[ {1, 2, 3, 4}, IntegerDigits[n^3] ]] == {1, 2, 3, 4}, Print[n]], {n, 0, 10^8} ]
Table[Surd[#, 3]&/@Select[FromDigits/@Tuples[{1, 2, 3, 4}, n], IntegerQ[ Surd[ #, 3]]&], {n, 6}]//Flatten (* The program generates the first 4 terms of the sequence; to generate the 5th term, change the "6" to "19, " but the program will take a long time to run. *) (* Harvey P. Dale, Apr 13 2021 *)

Crossrefs

Cf. A031997 (odd and digits 0,1,2,3), A043681 (0,1,2,3), A048792 (0,1,2,3,4), A061813 (1,2,3,4,5).

Sequence in context: A358585 A196181 A177182 * A289286 A337099 A123763

Adjacent sequences: A061806 A061807 A061808 * A061810 A061811 A061812

Keyword

base,more,nonn

Author

Robert G. Wilson v, Jun 23 2001

Status

approved