A098725 a(4n) = 0, a(2n+1) = 1, a(4n+2) = a(n+1).

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

Offset

0,1

Comments

Apparently, the first differences of A072894.

Links

Antti Karttunen, Table of n, a(n) for n = 0..65537

Index entries for characteristic functions

Mathematica

A098725[n_] := Which[OddQ[n], 1, Divisible[n, 4], 0, True, A098725[(n+2)/4]];
Array[A098725, 100, 0] (* Paolo Xausa, Apr 04 2024 *)

Prog

(PARI) a(n)=if(n%2==1, 1, if(n%4==0, 0, a((n-2)/4+1)))

Crossrefs

Sequence in context: A286055 A140318 A060584 * A284939 A188260 A341625

Adjacent sequences: A098722 A098723 A098724 * A098726 A098727 A098728

Keyword

nonn

Author

Ralf Stephan, Oct 15 2004

Status

approved