A119797 - OEIS

%I #13 Sep 19 2024 14:40:57

%S 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,

%T 31,34,35,36,37,38,39,40,41,42,45,46,47,48,49,50,51,52,53,56,57,58,59,

%U 60,61,62,63,64,67,68,69,70,71,72,73,74,75,78,79,80,81,82,83,84,85,86

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

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

%H Reinhard Zumkeller, <a href="/A119797/b119797.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[0,86],CountDistinct[IntegerDigits[#]]==CountDistinct[IntegerDigits[#+1]]&] (* _James C. McMahon_, Sep 18 2024 *)

%o (Haskell)

%o a119797 n = a119797_list !! (n-1)

%o a119797_list = f [0..] a043537_list where

%o    f (u:us) (v:vs@(v':_)) | v /= v'   = f us vs

%o                           | otherwise = u : f us vs

%o -- _Reinhard Zumkeller_, Jan 04 2012

%Y Cf. A119798, A119799.

%K nonn,base

%O 1,3

%A _Reinhard Zumkeller_, May 25 2006

%E Offset fixed by _Reinhard Zumkeller_, Jan 04 2012