OFFSET
1,1
EXAMPLE
3942 and 3942*4=15768 use once all the digits from 1 to 9.
MATHEMATICA
Select[Range[1000, 9999], Union[IntegerDigits[#], IntegerDigits[4 #]] == {1, 2, 3, 4, 5, 6, 7, 8, 9} &] (* Tanya Khovanova, Jul 05 2021 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved