#!/usr/bin/perl -w
use v5.14;

my $m; my $n;
while($m=<>) {
	$n=<>;
	my $rez=0;
	for(my $i = 0; $i <= $m; $i++) {
		for(my $j = $i; $j <= $m; $j++) {
			for(my $k = $j; $k <= $m; $k++) {
				$rez++ if($i*$i + $j*$j==$k*$k);
			}
		}
	}
	$rez+=($n-2)*($m+1);
	print "$rez\n";
}