A119797 Numbers m such that m and m+1 have the same number of distinct digits in decimal representation.

0, 1, 2, 3, 4, 5, 6, 7, 8, 12, 13, 14, 15, 16, 17, 18, 19, 20, 23, 24, 25, 26, 27, 28, 29, 30, 31, 34, 35, 36, 37, 38, 39, 40, 41, 42, 45, 46, 47, 48, 49, 50, 51, 52, 53, 56, 57, 58, 59, 60, 61, 62, 63, 64, 67, 68, 69, 70, 71, 72, 73, 74, 75, 78, 79, 80, 81, 82, 83, 84, 85, 86

Offset: 1

Author

Reinhard Zumkeller, May 25 2006

Keywords

• nonn
• base

Comments

A043537(a(n)) = A043537(a(n)+1).

Links

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

Crossrefs

Cf. A119798, A119799.

Programs

Haskell

a119797 n = a119797_list !! (n-1)
a119797_list = f [0..] a043537_list where
   f (u:us) (v:vs@(v':_)) | v /= v'   = f us vs
                          | otherwise = u : f us vs
-- Reinhard Zumkeller, Jan 04 2012

Mathematica

Select[Range[0,86],CountDistinct[IntegerDigits[#]]==CountDistinct[IntegerDigits[#+1]]&] (* James C. McMahon, Sep 18 2024 *)

Extensions

Offset fixed by Reinhard Zumkeller, Jan 04 2012