A061809 When cubed gives number composed just of the digits 1, 2, 3, 4.
1, 7, 11, 68, 1039247
Offset: 1
Crossrefs
Programs
-
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 *)
Comments