%I #14 Jul 15 2021 21:26:09
%S 16794,17694,20583,23058,30582,32058
%N Numbers k such that k and 3*k, taken together, are pandigital.
%e 16794 and 50382=16794*3 together contain all the 10 digits once.
%t pdQ[n_]:=Sort[Flatten[Join[{IntegerDigits[n],IntegerDigits[3n]}]]] == Range[0,9]; Select[Range[10000,99999],pdQ] (* _Harvey P. Dale_, Jul 07 2012 *)
%o (PARI) {for(n=10234, 49876, #Set(digits(n))==5||next; #Set(digits(n*3))==5 && #Set(concat(digits(n), digits(n*3)))==10 && print1(n", "))} \\ _M. F. Hasler_, Feb 08 2014
%Y Cf. A054383, A115922, A115924, A115925, A114126, A115927.
%K nonn,base,fini,full
%O 1,1
%A _Giovanni Resta_, Feb 06 2006
|