|
%I #14 Nov 16 2023 14:40:46
%S 987654321,987654320,987654310,987654210,987653210,987643210,
%T 987543210,986543210,976543210,876543210,98765432,987654320,98765430,
%U 98765420,98765320,98764320,98754320,98654320,97654320,87654320,98765431,98765430,987654310,98765410
%N If n is pandigital then 0 else (digits not occurring in decimal representation of n, arranged in decreasing order).
%C a(0) > a(n) for n > 0;
%C a(A171102(n)) = 0 by definition, but also a(A050289(n)) = 0.
%H Reinhard Zumkeller, <a href="/A230959/b230959.txt">Table of n, a(n) for n = 0..10000</a>
%t pd[n_]:=Module[{idn=Sort[IntegerDigits[n]]},If[idn==Range[0,9],0,FromDigits[ Reverse[ Complement[ Range[ 0,9],idn]]]]]; Table[pd[n],{n,0,30}] (* _Harvey P. Dale_, Nov 16 2023 *)
%o (Haskell)
%o import Data.List ((\\))
%o a230959 n = (if null cds then 0 else read cds) :: Integer
%o where cds = "9876543210" \\ show n
%o (Python)
%o def A230959(n): return int(''.join(sorted(set('9876543210')-set(str(n)),reverse=True)) or 0) # _Chai Wah Wu_, Nov 23 2022
%Y Cf. A227362.
%K nonn,base,look
%O 0,1
%A _Reinhard Zumkeller_, Nov 02 2013
|
