login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A189816 a(3*k-2)=0, a(3*k-1)=1-a(k), a(3*k)=1-a(k); k>0, a(1)=0. 6
0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1

COMMENTS

Together with A189820, this sequence completes the list of "type 3,3" sequences described at A189628.

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..10000

MAPLE

A189816 := proc(n)

    option remember;

    if n = 1 then

        0;

    else

        if modp(n, 3) = 1 then

            0 ;

        else

            1-procname(ceil(n/3)) ;

        end if ;

    end if;

end proc:

seq(A189816(n), n=1..40) ; # R. J. Mathar, Jun 19 2021

MATHEMATICA

Remove["Global`*"];

a[1] = 0; h = 180;

Table[a[3 k - 2] = 0, {k, 1, h}];

Table[a[3 k - 1] = 1 - a[k], {k, 1, h}];

Table[a[3 k] = 1 - a[k], {k, 1, h}];

Table[a[n], {n, 1, h}]   (*A189816*)

Flatten[Position[%, 0]]  (*A189817*)

Flatten[Position[%%, 1]] (*A189818*)

CROSSREFS

Cf. A189628, A189817, A189818, A189819 (partial sums)

Sequence in context: A072608 A295304 A171386 * A342000 A194685 A182582

Adjacent sequences:  A189813 A189814 A189815 * A189817 A189818 A189819

KEYWORD

nonn

AUTHOR

Clark Kimberling, Apr 28 2011

EXTENSIONS

Index in NAME corrected. - R. J. Mathar, Jun 19 2021

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 January 23 10:11 EST 2022. Contains 350510 sequences. (Running on oeis4.)