%I #13 Jul 15 2021 22:14:46
%S 13458,13584,13854,14538,14586,14658,15384,15846,15864,18534,18546,
%T 18654,20697,20769,20937,20967,20973,26097,26956,26958,26970,27096,
%U 27609,27690,29076,29356,29358,29370,29536,29538,29566,29586,29607,29670,29706,29730,30972,32097,32956
%N Numbers k such that k and 5*k, taken together, are pandigital.
%e 13458 and 67290=13458*5 together contain all the 10 digits once.
%t pdQ[n_]:=Module[{idn=IntegerDigits[n],idn5=IntegerDigits[5n]},Union[Join[idn,idn5]]==Range[0,9]]
%t Select[Range[50000],pdQ] (* _Harvey P. Dale_, Mar 06 2011 *)
%Y Cf. A054383, A115922, A115923, A115924, A114126, A115927.
%K nonn,base,fini,full
%O 1,1
%A _Giovanni Resta_, Feb 06 2006
%E More terms from _Harvey P. Dale_, Mar 06 2011
|