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 A345875 #18 Jan 10 2023 20:30:05
%S A345875 608,809,897,924,1166,1241,1458,1459,1506,1547,1718,1729,1832,1932,
%T A345875 1977,1982,2112,2162,2179,2188,2211,2279,2283,2291,2296,2336,2337,
%U A345875 2408,2427,2541,2592,2594,2613,2634,2684,2689,2704,2764,2776,2779,2854,2941,2984,2988,3009
%N A345875 Numbers whose fourth powers are zeroless pandigital.
%C A345875 Zeroless pandigital means that it contains all the digits 1 through 9, but doesn't contain a zero.
%H A345875 Alois P. Heinz, <a href="/A345875/b345875.txt">Table of n, a(n) for n = 1..10000</a>
%e A345875 608^4 = 136651472896. Thus, 608 belongs to this sequence.
%p A345875 q:= n-> is({convert(n^4, base, 10)[]}={$1..9}):
%p A345875 select(q, [$1..3000])[]; # _Alois P. Heinz_, Jun 29 2021
%t A345875 Select[Range[8000], Union[IntegerDigits[#^4]] == {1, 2, 3, 4, 5, 6, 7, 8, 9} &]
%o A345875 (Python)
%o A345875 def ok(n): return set(str(n**4)) == set("123456789")
%o A345875 print(list(filter(ok, range(3000)))) # _Michael S. Branicky_, Jun 27 2021
%o A345875 (PARI) isok(k) = my(d=digits(k^4)); vecmin(d) && (#Set(d) == 9); \\ _Michel Marcus_, Jun 30 2021
%Y A345875 Cf. A071519 (for squares), A124628 (for cubes).
%Y A345875 Subsequence of A121321 (4th power is pandigital).
%K A345875 nonn,base
%O A345875 1,1
%A A345875 _Tanya Khovanova_, Jun 27 2021