Chaotic population growth

pstart = 0.1;     
rate = 2.7;    
maxgen = 
      30;    

pop = 
      pstart;
plist = {{0, pop}};

Do[   
pop = 
          rate*pop*(1 - pop)  // N; 
plist  =  
          Append[plist, {n, pop}];
, {n, 1, 
          maxgen}];

ListPlot[plist  ,  PlotJoined  ->  True ,  
      PlotRange  ->  {Automatic, {0, 1}} ]