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.

VmFyCiAgbix4LGssczppbnRlZ2VyOwogIEZ1bmN0aW9uIGYobjppbnRlZ2VyKTpsb25naW50OwogICAgICAgICBiZWdpbgogICAgICAgICAgICBJZiAobjw9MTUpIHRoZW4gIEY6PW4qbiszKm4rOSBlbHNlCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSWYgKG4gbW9kIDM9MClUaGVuICBmOj1mKG4tMSkrbi0yIGVsc2UKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGY6PWYobi0yKStuKzI7CiAgICAgICAgIGVuZDsKICBiZWdpbgogIHM6PTA7CiAgZm9yIG46PTEgdG8gMTAwMCBkbwogICAgICAgICAgICBiZWdpbgogICAgICAgICAgICB4Oj1mKG4pOwogICAgICAgICAgICBrOj0wOwogICAgICAgICAgICB3aGlsZSB4PjAgZG8gYmVnaW4KICAgICAgICAgICAgICAgICAgICAgICAgICAgIElmICh4IG1vZCAyPD4wKSB0aGVuIGs6PWsrMTsKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHg6PXggZGl2IDEwOwogICAgICAgICAgICAgICAgICAgICAgICAgZW5kOwogICAgICAgICAgICBJZiAoaz0wKSB0aGVuIHM6PXMrMTsKICAgICAgICAgICAgZW5kOwogIHdyaXRlKHMpOwogIGVuZC4=