Var
n,x,k,s:integer;
Function f(n:integer):longint;
begin
If (n<=15) then F:=n*n+3*n+9 else
If (n mod 3=0)Then f:=f(n-1)+n-2 else
f:=f(n-2)+n+2;
end;
begin
s:=0;
for n:=1 to 1000 do
begin
x:=f(n);
k:=0;
while x>0 do begin
If (x mod 2<>0) then k:=k+1;
x:=x div 10;
end;
If (k=0) then s:=s+1;
end;
write(s);
end.