login
Numbers k such that k and 8*k, taken together, are zeroless pandigital.
5

%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