|
%I #17 Nov 23 2020 01:43:41
%S 0,1,2,4,7,11,15,20,26,33,41,49,57,68,79,91,102,115,129,144,160,175,
%T 193,210,228,249,269,290,311,333,357,380,406,431,458,487,512,542,570,
%U 603,634,664,697,730,766,802,835,872,909,948,988
%N Number of Gaussian integers z=a+bi satisfying |z|<=n, a>=0, 0<=b<a.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Gaussian_integers">Gaussian Integers</a>
%H <a href="/index/Ga#gaussians">Index entries for Gaussian integers and primes</a>
%F Partial sums of A036701. - _Sean A. Irvine_, Nov 22 2020
%p A036700 := proc(n)
%p local a,x,y ;
%p a := 0 ;
%p for x from 0 do
%p if x^2 > n^2 then
%p return a;
%p fi ;
%p for y from 0 to x-1 do
%p if y^2+x^2 <= n^2 then
%p a := a+1 ;
%p end if;
%p end do;
%p end do:
%p end proc: # _R. J. Mathar_, Oct 29 2011
%Y Cf. A036701, A036702.
%K nonn
%O 0,3
%A _Clark Kimberling_
|
