program datorii;
type
tabel=array [0..15001] of longint;
var
t:tabel;
n,m,i,j,k,x,y,s:longint;
f1,f2:text;
begin
assign (f1,'datorii.in');
assign (f2,'datorii.out');
reset (f1);
rewrite (f2);
readln (f1,n,m);
for i:=1 to n do begin
read(f1,x);
j:=x;
repeat
t[j]:=t[j]+x;
j:=j+x;
until j>n;
end;
for i:=1 to m do begin
readln (f1,k,x,y);
s:=0;
if k=1 then begin
for j:=x to y do s:=s+t[j];
writeln (f2,s);
end else
if k=0 then begin
t[x]:=t[x]-y;
end;
end;
close (f1);
close (f2);
end.