uses crt;
var f1, f2 : text;
    i, j, x, N, k : integer;
    
begin
clrscr;
assign(f1, 'Pitago.inp'); reset(f1);
assign(f2, 'Pitago.out'); rewrite(f2);

readln(f1, N);

k := 0;

for i := 1 to N - 1 do
    for j := i + 1 to N - 2 do
        for x := j + 1 to N do
            if sqr(i) + sqr(j) = sqr(x) then 
                begin
                    k := k + 1;
                    break;
                end;
        
write(f2, k);

close(f1); close(f2);
readln
end.

uses crt;
var fi,fo: text;
    n,i,j,k,d: integer;
begin
    assign(fi,'Pitago.inp'); reset(fi);
    assign(fo,'pitago.out'); rewrite(fo);
    read(fi,n);
    for i:=1 to n do for j:=i+1 to n do for k:=j+1 to n do if i*i+j*j=k*k then d:=d+1;
    write(fo,d);
    close(fi);
    close(fo);
end.