TAOMANG

var w,b:array[1..1000000] of longint;
  n,a,m,i:longint;
  S:qword;
procedure nhap;
begin
read(n,a,m);
end;
function lt(x,y:longint):int64;
 var i:longint;
    S:int64;
 begin
 S:=1;
 for i:=1 to y do S:=S*x;
 exit(S);
 end;

procedure xuli;
var i:longint;
begin
for i:=1 to n do
w[i]:=lt(a,i) mod m + 1;
end;


procedure tong;
var i:longint;
 begin
 S:=0;
 for i:=1 to n do S:=S+w[i];
 write(S);
 end;

begin
assign(input,'TAOMANG.inp');reset(input);
assign(output,'TAOMANG.out');rewrite(output);
nhap;
xuli;
tong;
end.