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

Author

Ralf Stephan, Oct 15 2004

Keywords

• nonn

Comments

Apparently, the first differences of A072894.

Links

• Antti Karttunen, Table of n, a(n) for n = 0..65537
• Index entries for characteristic functions

Programs

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 *)

PARI

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