A082416 - OEIS

%I #15 Jul 13 2013 12:02:59

%S 1,1,1,0,1,0,0,1,0,1,1,1,0,1,0,1,1,1,1,1,0,1,0,1,1,1,0,1,1,1,1,0,0,0,

%T 0,1,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,1,0,1,0,1,1,1,1,0,1,1,1,1,1,0,

%U 1,1,0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1

%N Parity of A073941(n).

%H Reinhard Zumkeller, <a href="/A082416/b082416.txt">Table of n, a(n) for n = 1..1000</a>

%o (PARI) u=1; for(n=2,150,v=ceil(u/2); u=v+u; print1(v%2,","))

%o (Haskell)

%o a082416 n = a082416_list !! (n-1)

%o a082416_list = map (`mod` 2) a073941_list

%o -- _Reinhard Zumkeller_, Oct 26 2011

%Y Cf. A073941, A005428.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, based on a suggestion of _Jeremy Gardiner_, Apr 25 2003

%E More terms from _Benoit Cloitre_, Apr 25 2003