Exemple d'une décomposition dans cette somme directe:

dd = IntegerDigits[2003, 2]

{1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1}

a = Table[If[OddQ[k], dd[[k]], 0], {k, 11}]

b = Table[If[EvenQ[k], dd[[k]], 0], {k, 11}]

{1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1}

{0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0}

FromDigits[a, 2]

FromDigits[b, 2]

FromDigits[a, 2] + FromDigits[b, 2]

1361

642

2003

Created by Mathematica  (February 6, 2006) Valid XHTML 1.1!