login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A192490 Characteristic function of ludic numbers (A003309). 23
1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

COMMENTS

a(A003309(n)) = 1 and a(A192607(n)) = 0.

LINKS

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

Index entries for characteristic functions

PROG

(Haskell) a192490 n = a192490_list !! (n-1)

a192490_list = ch [1..] a003309_list where

   ch (i:is) ls'@(l:ls) = if i == l then 1 : ch is ls else 0 : ch is ls'

-- Reinhard Zumkeller, Feb 10 2014, Jul 05 2011

CROSSREFS

Cf. A192512 (partial sums).

Sequence in context: A323095 A083187 A187036 * A267133 A080339 A294905

Adjacent sequences:  A192487 A192488 A192489 * A192491 A192492 A192493

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Jul 05 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 July 9 05:50 EDT 2020. Contains 335538 sequences. (Running on oeis4.)