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

Author

Labos Elemer, Oct 21 2002

Keywords

• base
• easy
• nonn

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

Crossrefs

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

Programs

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

Mathematica

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

Extensions

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