|
%I #14 Jul 16 2021 01:35:34
%S 3187,4589,4591,4689,4691,4769,5237,5371,5789,5791,5839,5892,5916,
%T 5921,6479,6741,6789,6791,6839,7123,7312,7364,7416,7421,7894,7941,
%U 8174,8179,8394,8419,8439,8932,8942,8953,8954,9156,9158,9182,9316
%N Numbers k such that k and 8*k, taken together, are zeroless pandigital.
%C There are 46 such numbers, the largest being 9541.
%H Giovanni Resta, <a href="/A115932/b115932.txt">Table of n, a(n) for n = 1..46</a> (full sequence)
%e 3187 and 3187*8=25496 use once all the digits from 1 to 9.
%t With[{c=Range[9]},Select[Range[10000],Sort[Join[IntegerDigits[# ], IntegerDigits[8 #]]]==c&]] (* _Harvey P. Dale_, Jul 11 2011 *)
%Y Cf. A054383, A064160, A115927, A115929, A115930, A115931.
%K nonn,base,fini,full
%O 1,1
%A _Giovanni Resta_, Feb 06 2006
|
