This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A061809 #19 Apr 13 2021 14:11:28
%S A061809 1,7,11,68,1039247
%N A061809 When cubed gives number composed just of the digits 1, 2, 3, 4.
%C A061809 No more terms through 10^13. - _Jon E. Schoenfield_, Jul 03 2010
%C A061809 No more terms through 5*10^16. - _David A. Corneth_, Mar 17 2019
%t A061809 Do[ If[ Union[ Join[ {1, 2, 3, 4}, IntegerDigits[n^3] ]] == {1, 2, 3, 4}, Print[n]], {n, 0, 10^8} ]
%t A061809 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 *)
%Y A061809 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).
%K A061809 base,more,nonn
%O A061809 1,2
%A A061809 _Robert G. Wilson v_, Jun 23 2001