%I #10 Feb 01 2014 23:08:33

%S 99,110,111,112,113,114,115,116,117,118,199,220,221,222,223,224,225,

%T 226,227,228,299,330,331,332,333,334,335,336,337,338,399,440,441,442,

%U 443,444,445,446,447,448,499,550,551,552,553,554,555,556,557,558,599,660

%N Numbers m such that m and m+1 have at least two identical neighboring digits in their decimal representations.

%C a(n) + 1 = A171901(k) for some k;

%C A171902(a(n)) = 1.

%H R. Zumkeller, <a href="/A171903/b171903.txt">Table of n, a(n) for n = 1..5000</a>

%F A196368(a(n)) + A196368(a(n)+1) = 0. - _Reinhard Zumkeller_, Jan 31 2014

%o (Haskell)

%o import Data.List (elemIndices)

%o a171903 n = a171903_list !! (n-1)

%o a171903_list = elemIndices 0 $

%o zipWith (+) a196368_list $ tail a196368_list

%o -- _Reinhard Zumkeller_, Jan 31 2014

%Y Cf. A196368, A171901, A171904.

%K base,nonn,look

%O 1,1

%A _Reinhard Zumkeller_, Feb 07 2010