A230959 If n is pandigital then 0 else (digits not occurring in decimal representation of n, arranged in decreasing order).

987654321, 987654320, 987654310, 987654210, 987653210, 987643210, 987543210, 986543210, 976543210, 876543210, 98765432, 987654320, 98765430, 98765420, 98765320, 98764320, 98754320, 98654320, 97654320, 87654320, 98765431, 98765430, 987654310, 98765410

Offset

0,1

Comments

a(0) > a(n) for n > 0;

a(A171102(n)) = 0 by definition, but also a(A050289(n)) = 0.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Mathematica

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 *)

Prog

(Haskell)
import Data.List ((\\))
a230959 n = (if null cds then 0 else read cds) :: Integer
   where cds = "9876543210" \\ show n
(Python)
def A230959(n): return int(''.join(sorted(set('9876543210')-set(str(n)), reverse=True)) or 0) # Chai Wah Wu, Nov 23 2022

Crossrefs

Cf. A227362.

Sequence in context: A168436 A168435 A363963 * A234812 A287171 A136953

Adjacent sequences: A230956 A230957 A230958 * A230960 A230961 A230962

Keyword

nonn,base,look

Author

Reinhard Zumkeller, Nov 02 2013

Status

approved