A342308 Numbers whose fifth powers are zeroless pandigital.
193, 353, 398, 678, 695, 697, 744, 768, 776, 793, 868, 883, 966, 968, 983, 1045, 1075, 1079, 1089, 1097, 1098, 1114, 1129, 1148, 1186, 1193, 1212, 1291, 1311, 1403, 1405, 1442, 1544, 1576, 1584, 1643, 1715, 1734, 1746, 1775, 1795, 1853, 1868, 1888, 1917, 1944, 1953, 1971, 1974, 1996
Offset: 1
Examples
193^5 = 267785184193, and contains all the digits 1 through 9.
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
Programs
-
Maple
q:= n-> is({convert(n^5, base, 10)[]}={$1..9}): select(q, [$1..2000])[]; # Alois P. Heinz, Mar 08 2021
-
Mathematica
Select[Range[2000], Sort[ Union[IntegerDigits[#^5]]] == {1, 2, 3, 4, 5, 6, 7, 8, 9} &]
-
PARI
isok(m) = my(d=digits(m^5)); vecmin(d) && (#Set(d) == 9); \\ Michel Marcus, Mar 09 2021
-
Python
A342308_list = [n for n in range(1,10**5) if set(str(n**5)) == {'1', '2', '3', '4', '5', '6', '7', '8', '9'}] # Chai Wah Wu, Mar 08 2021
Comments