A196368 - OEIS

A196368

Characteristic function of numbers having in decimal representation only distinct adjacent digits.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

a(A043096(n)) = 1; a(A171901(n)) = 0;

A178788(n) <= a(n).

LINKS

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

Index entries for characteristic functions

MATHEMATICA

If[MemberQ[Differences[IntegerDigits[#]], 0]==True, 0, 1]&/@Range[0, 90] (* Harvey P. Dale, Sep 05 2013 *)

PROG

(Haskell)