WolframAlpha computational knowledge AI
Table[BitAnd[x, 2^y], {x, 1, 12}, {y, 0, 3}]