Ваши требования немного запутаны, ближайшая степень от 2 до 5 - 4. Если вы хотите получить следующую степень от 2 до числа, то следующее выражение Mathematica делает то, что вам нужно:
2^Ceiling[Log[2, 5]] => 8
Исходя из этого, в большинстве языков программирования было бы несложно определить однострочность.