OFFSET
0
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
If[MemberQ[Differences[IntegerDigits[#]], 0]==True, 0, 1]&/@Range[0, 90] (* Harvey P. Dale, Sep 05 2013 *)
PROG
(Haskell)
a196368 n = fromEnum $ and $ zipWith (/=) (tail $ show n) (show n)
a196368_list = map a196368 [0..]
(Python)
A196368_list = [int(all(str(n)[i] != str(n)[i-1] for i in range(1, len(str(n))))) for n in range(10000)] # Chai Wah Wu, Feb 14 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Oct 28 2011
STATUS
approved