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

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

Offset

0,101

Comments

a(A226637(n)) = 0. Reinhard Zumkeller, Sep 01 2013

This is the prefix overlap between the decimal expansions of n and n+1 (cf. A238845). - N. J. A. Sloane, Mar 22 2014

Links

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

Mathematica

Table[Length[Intersection[IntegerDigits[w], IntegerDigits[w+1]]], {w, 1, 200}]

Prog

(Haskell)
import Data.List (intersect, nub)
a076489 n = a076489_list !! n
a076489_list = map (length . nub) $
               zipWith intersect (tail a031298_tabf) a031298_tabf
-- Reinhard Zumkeller, Sep 01 2013

Crossrefs

Cf. A001477, A031298, A076490, A238845, A239092 (partial sums).

Sequence in context: A027388 A114295 A004216 * A211666 A297037 A127322

Adjacent sequences: A076486 A076487 A076488 * A076490 A076491 A076492

Keyword

base,easy,nonn

Author

Labos Elemer, Oct 21 2002

Extensions

Initial zero prepended and offset adjusted by Reinhard Zumkeller, Sep 01 2013

Status

approved