OFFSET
0,2
COMMENTS
Lattice points in x^(2/3) + y^(2/3) <= n^(2/3).
MAPLE
count := proc(n)
local t, x, y;
t := 0;
for x from 1 to n-1 do
for y from 1 to n-x do
if evalf(x^(2/3)+y^(2/3)-n^(2/3)) <= 0 then
t := t+1
end if:
end do:
end do;
return 4*t+4*n+1:
end proc;
S := [seq(count(a), a = 0 .. 41)];
MATHEMATICA
Table[cnt = 0; Do[If[x^(2/3) + y^(2/3) <= n^(2/3), cnt++], {x, n}, {y, n}]; 4*cnt + 4*n + 1, {n, 0, 50}] (* T. D. Noe, Sep 18 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
César Eliud Lozada, Sep 18 2012
STATUS
approved