uses crt;
var d,i,n:longint;
a:array[1..1000000] of longint;
function cp(n:qword):boolean;
begin
if sqr(trunc(sqrt(n)))=n then cp:=true else cp:=false;
end;
Function  tong( n:qword):qword;
Var t: int64;
Begin
     T:=0;
     While n>0 do
  Begin
        T:=t +n mod 10;
        N:= n div 10;
   End;
     Tong:=t;
End;

begin
readln(n);
for i:=1 to n do begin
read(a[i]);if cp(tong(a[i])) then inc(d);end;readln; write(d);
readln
end.