login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A196368 Characteristic function of numbers having in decimal representation only distinct adjacent digits. 7
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

0

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)

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

Sequence in context: A089829 A294935 A242902 * A178788 A131217 A105567

Adjacent sequences:  A196365 A196366 A196367 * A196369 A196370 A196371

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Oct 28 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 26 23:51 EDT 2019. Contains 323597 sequences. (Running on oeis4.)