OFFSET
1,1
COMMENTS
Zeroless pandigital means that it contains all the digits 1 through 9, but doesn't contain a zero.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
608^4 = 136651472896. Thus, 608 belongs to this sequence.
MAPLE
q:= n-> is({convert(n^4, base, 10)[]}={$1..9}):
select(q, [$1..3000])[]; # Alois P. Heinz, Jun 29 2021
MATHEMATICA
Select[Range[8000], Union[IntegerDigits[#^4]] == {1, 2, 3, 4, 5, 6, 7, 8, 9} &]
PROG
(Python)
def ok(n): return set(str(n**4)) == set("123456789")
print(list(filter(ok, range(3000)))) # Michael S. Branicky, Jun 27 2021
(PARI) isok(k) = my(d=digits(k^4)); vecmin(d) && (#Set(d) == 9); \\ Michel Marcus, Jun 30 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tanya Khovanova, Jun 27 2021
STATUS
approved