cp's OEIS Frontend

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

%I A171903 #10 Feb 01 2014 23:08:33
%S A171903 99,110,111,112,113,114,115,116,117,118,199,220,221,222,223,224,225,
%T A171903 226,227,228,299,330,331,332,333,334,335,336,337,338,399,440,441,442,
%U A171903 443,444,445,446,447,448,499,550,551,552,553,554,555,556,557,558,599,660
%N A171903 Numbers m such that m and m+1 have at least two identical neighboring digits in their decimal representations.
%C A171903 a(n) + 1 = A171901(k) for some k;
%C A171903 A171902(a(n)) = 1.
%H A171903 R. Zumkeller, <a href="/A171903/b171903.txt">Table of n, a(n) for n = 1..5000</a>
%F A171903 A196368(a(n)) + A196368(a(n)+1) = 0. - _Reinhard Zumkeller_, Jan 31 2014
%o A171903 (Haskell)
%o A171903 import Data.List (elemIndices)
%o A171903 a171903 n = a171903_list !! (n-1)
%o A171903 a171903_list = elemIndices 0 $
%o A171903                zipWith (+) a196368_list $ tail a196368_list
%o A171903 -- _Reinhard Zumkeller_, Jan 31 2014
%Y A171903 Cf. A196368, A171901, A171904.
%K A171903 base,nonn,look
%O A171903 1,1
%A A171903 _Reinhard Zumkeller_, Feb 07 2010