Binary Carry Sequence

Author

Eric W. Weisstein
October 3, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/BinaryCarrySequence.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/BinaryCarrySequence.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Sequence

seq=Table[IntegerExponent[n,2],{n,20}]

Table[Count[Last[Split[IntegerDigits[n,2]]],0],{n,20}]

Mod[seq,2]