# ListPlot with redundant labels for tick marks

Is it possible to have two sets of labels for the $x$-axis tick marks using ListPlot? For example, could we have tick marks labels: {1,2,3,4,...}, and then right below these labels, the values for the powers of two: {2,4,8,16,...}?

-

A starting point :

data = Table[{i, i + 1}, {i, 10}];
ListPlot[data, Ticks -> {Table[{i, Column[{i, Style[2^i, Red]}]}, {i, 10}], Automatic}]


-