[seqfan] binary sequences A164349 and A101266 equivalent?

Richard Mathar mathar at strw.leidenuniv.nl
Mon Aug 17 14:01:09 CEST 2009


Are the two sequences

http://research.att.com/~njas/sequences/?q=id:A164349|id:A101266

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

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

the same after the first is shifted once to the left?

%S A101266 1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,1,0,
%T A101266 0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,0,1,0,0,1,0,
%U A101266 1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,1,0,0,1,0,1,0
%E A101266 More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 17 2009
%p A101266 A101402 := proc(n) option remember; local k; if n <=1 then n; else k := 2^ceil(log[2](n)) ; procname(k/2)+procname(n-1-k/2) ; fi; end: A101266 := proc(n) A101402(n+1)-A101402(n) ; end: seq(A101266(n),n=0..130) ; [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 17 2009]







More information about the SeqFan mailing list