@as5987   If you are using the sequence then you should write

with(plots):  with(plottools):

d := seq(circle([1, 1/i], 1/i, color = blue), i=0.5..20, 0.1):

Example:

display(d[1], d[10], d[50]);

The number in brackets should be positive integer.  It shows the sequence number a member of the sequence.

@as5987  plottools[disk]  command creates plot structure of filled circle centered at  (1, 0)  and the radius  0.01 .  The same can be written shorter

Point1 := disk(eval([x,y], Sol[1]), 0.01, color = red):

@Carl Love   Thanks for the helpful comments.

@casperyc   I do not know what you call efficient. Here is variant without loop:

restart;

a:=Vector([2,3,4,5]): b:=convert(a,list):

map(ListTools[SearchAll],select(x->x>=3, b), b);

                                 [2, 3, 4]

@Carl Love  Your code is the most simple and effective solution to the problem. I learned from it about the useful  foldl  command. 

@Markiyan Hirnyk  I do not understand what you mean by this example? The sum computed symbolically absolutly exactly. Try to do the same by your code.

@Markiyan Hirnyk  I usually work in the classic interface and have never met such problems. In this situation in the code of the procedure it is necessary to replace  $ i  to  `$`(i)

@Markiyan Hirnyk  Unfortunately, your code returns unevaluated the same example:

restart; m := 3;

f :=  (x,y,z)-> 1/x/y/z:

rang[1] := 1 .. 5; rang[2] := 2 .. 8; rang[3] := 3 .. 7;

VectorCalculus:-int(f(seq(floor(k[i]), i = 1 .. m)), [seq(k[i], i = 1 .. m)] = Parallelepiped(seq(op(1, rang[j]) .. op(2, rang[j])+1, j = 1 .. m)));

@Carl Love  Of course, your method using viewpoint option witty and programmatically solves the problem but:

1) Zooming by the mouse is the simplest and fastest way to get the same effect

2) In the second method  we have actually  a uniform  stretching of the plot along axes and effect is the same, excepting the simultaneous stretching of tickmarks.

I think Carl's solution by simplify/siderals is the most simple and natural way.

Thank you all  for your answers!
If we replace the assigning by an usual substitution, the results remain identical. What's the difference?

restart;

V1:=Vector([a, b]);  V2:=<a, b>;  # Identical results

A:=subs({a=[1, 2],b=[3, 4]}, V1); B:=subs({a=[1, 2],b=[3, 4]}, V2); # Also identical results

whattype(A); whattype(B);

Since 1/1 = 1, then why just  1  not written?

Maybe should be  1/(1-exp(a*x))*erfc(a*x)  or  1/((1-exp(a*x))*erfc(a*x))  ?

@Alejandro Jakubi  Your way does not work if in solutions there is no the number  Pi . Here is more general way:

s := solve({x >= 0, 2*sin(Pi*x) = 1, x <= 2*Pi}, AllSolutions, Explicit);

seq({x = convert(rhs(op(s[i])), degrees)}, i = 1 .. nops([%]));

@acer 

At first I wrote  Diff  and Maple showed all the steps, then I replaced  Diff  by  diff  and Maple again showed all the steps. But if from the beginning written  diff, the error appears.

@oldstudent 

Maple 16