login
A199631
Numbers having each digit once and whose cube has each digit three times.
11
4680215379, 4752360918, 4765380219, 4915280637, 5063248197, 5164738920, 5382417906, 5426370189, 5429013678, 5628130974, 5679321048, 5697841320, 5762831940, 5783610492, 5786430129, 5903467821, 6019285734, 6053147982, 6095721483, 6143720958, 6158723094
OFFSET
1,1
EXAMPLE
4680215379^3 = 102517384602327906545167884939.
MATHEMATICA
t = Select[Permutations[Range[0, 9]], #[[1]] > 0 &]; t2 = Select[t, Union[DigitCount[FromDigits[#]^3]] == {3} &]; FromDigits /@ t2
PROG
(Python)
from itertools import permutations
def afull(): return sorted(t for p in permutations("0123456789") if p[0]!='0' and len(s:=str((t:=int("".join(p)))**3))==30 and all(s.count(d)==3 for d in "123456789"))
print(afull()) # Michael S. Branicky, Nov 16 2025
CROSSREFS
Cf. A050278 (pandigital numbers), A199630, A365144, A199632, A199633. Subsequence of A114259.
Sequence in context: A034916 A172726 A172797 * A124977 A128172 A050259
KEYWORD
nonn,base,fini,full
AUTHOR
T. D. Noe, Nov 09 2011
STATUS
approved