OFFSET
0,3
LINKS
FORMULA
Partial sums of A036701. - Sean A. Irvine, Nov 22 2020
MAPLE
A036700 := proc(n)
local a, x, y ;
a := 0 ;
for x from 0 do
if x^2 > n^2 then
return a;
fi ;
for y from 0 to x-1 do
if y^2+x^2 <= n^2 then
a := a+1 ;
end if;
end do;
end do:
end proc: # R. J. Mathar, Oct 29 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved