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,3

Comments

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

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A119798, A119799.

Sequence in context: A118600 A080543 A285916 * A032972 A210585 A240082

Adjacent sequences: A119794 A119795 A119796 * A119798 A119799 A119800

Keyword

nonn,base

Author

Reinhard Zumkeller, May 25 2006

Extensions

Offset fixed by Reinhard Zumkeller, Jan 04 2012

Status

approved