Difference eqn: 
x[1] = 0.1e-3; for i to 100 do x[i+1] := (1+(1-(1/10)*x[i])*.15)*x[i] end do;
pointplot({seq([n, x[n]], n = 1 .. 50)});

x[1] := 1; x[0] := 1; x[2] := 1;
for i from 2 to 100 do x[i+1] := (1+(1-(1/2)*x[i-1])*.5)*x[i] end do;

with(plots);
pointplot({seq([n, x[n]], n = 1 .. 20)});

Plot the solution to a Differential equation

with(DEtools);
LG := diff(y(t), t) = k*y(t)*(K-y(t));
K := 40; k := 0.1e-1;
 
ivs := [y(0) = 1, y(0) = 10, y(0) = 50];
                [y(0) = 1, y(0) = 10, y(0) = 50]
DEplot(LG, y(t), t = 0 .. 50, ivs);
DEplot(LG, y(t), t = 0 .. 50, y = 0 .. 60, ivs, arrows = medium, linecolor = black);

Or, you may solve the differential equation first
and then plot the solution:

de := dsolve({diff(z(t), t) = a*(1-c*z(t))*z(t), z(0) = zo});
p := eval(z(t), de); p0 := eval(p, {a = 1.3, c = .2, zo = .1});
plot(p0, t = 0 .. 8);