Program AplusB;
var
    T,i,u,N:integer; stri:string;
    h,leng:longint;
    war,wat:text;
Function Power(x,y:integer) : longint;
 begin
  if y=0 then power:=1 else power:=x*power(x,y-1);
 end;
begin
assign(war, 'cifra.in');
assign(wat, 'cifra.out');
reset(war);
rewrite(wat);
readln(war, N);
for u:=1 to N do begin
readln(war, T);
h:=0;
for i:=1 to T do h:=h+power(i,i);
str(h,stri);
leng:=length(stri);
writeln(wat, stri[leng]);
end;
close(war);
close(wat);
end.