%I #12 Jul 10 2021 00:15:47
%S 3942,4392,5796,7956
%N Numbers k such that k and 4*k, taken together, are zeroless pandigital, that is, use all the digits 19 exactly once.
%e 3942 and 3942*4=15768 use once all the digits from 1 to 9.
%t Select[Range[1000, 9999], Union[IntegerDigits[#], IntegerDigits[4 #]] == {1, 2, 3, 4, 5, 6, 7, 8, 9} &] (* _Tanya Khovanova_, Jul 05 2021 *)
%Y Cf. A054383, A064160, A115927, A115930, A115931, A115932.
%K nonn,base,fini,full
%O 1,1
%A _Giovanni Resta_, Feb 06 2006
