WolframAlpha computational knowledge AI
Union[Tally[Table[Part[IntegerDigits[2^k], 1], {k, 1000}]]]