f[{a_, x_}] := {a,a*x*(1 - x)};
x0 = 1.0/E;
d = Flatten[Table[
    w = Nest[f, {a, x0}, 1000];
    NestList[f, w, 100]
    , {a, 3, 4, 0.0001}], 1];
ListPlot[d]