cp's OEIS Frontend

A076489 Number of common (distinct) digits of consecutive natural numbers.

%I A076489 #16 Jun 29 2024 10:58:05
%S A076489 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,
%T A076489 1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,
%U A076489 1,0,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,2,2,2,2,2,2
%N A076489 Number of common (distinct) digits of consecutive natural numbers.
%C A076489 a(A226637(n)) = 0. _Reinhard Zumkeller_, Sep 01 2013
%C A076489 This is the prefix overlap between the decimal expansions of n and n+1 (cf. A238845). - _N. J. A. Sloane_, Mar 22 2014
%H A076489 Reinhard Zumkeller, <a href="/A076489/b076489.txt">Table of n, a(n) for n = 0..10000</a>
%t A076489 Table[Length[Intersection[IntegerDigits[w], IntegerDigits[w+1]]], {w, 0, 200}]
%o A076489 (Haskell)
%o A076489 import Data.List (intersect, nub)
%o A076489 a076489 n = a076489_list !! n
%o A076489 a076489_list = map (length . nub) $
%o A076489                zipWith intersect (tail a031298_tabf) a031298_tabf
%o A076489 -- _Reinhard Zumkeller_, Sep 01 2013
%Y A076489 Cf. A001477, A031298, A076490, A238845, A239092 (partial sums).
%K A076489 base,easy,nonn
%O A076489 0,101
%A A076489 _Labos Elemer_, Oct 21 2002
%E A076489 Initial zero prepended and offset adjusted by _Reinhard Zumkeller_, Sep 01 2013