OFFSET
1,55
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local t, v, y;
t:= 0:
for y from 1 do
v:= n^2 - y^3;
if v < y^2 then return t fi;
if issqr(v) then t:= t+1 fi
od
end proc:
map(f, [$1..100]); # Robert Israel, Jun 25 2024
PROG
(PARI) for(n=1, 100, print1(sum(i=1, n, sum(j=1, i, if(i^2+j^3-n^2, 0, 1))), ", "))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 18 2002
EXTENSIONS
Name clarified by Sean A. Irvine, Jun 25 2024
STATUS
approved