#!/usr/bin/perl -w
use strict;
use integer;
my $ans = 0;
for my $num (0..16777216) {
  my $total = 0;
  my $shift = 1;
  for my $i (1..24) {
    $total += $num & $shift ?  $i : -$i; 
    if ($num<$shift){$total-=(24-$i)*(25+$i)/2; last;}
    $shift <<= 1;
  }
  $ans++ if $total == 0;
}
print $ans;