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,...}?

-
data = Table[{i, i + 1}, {i, 10}];