OFFSET
1,3
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..943
MAPLE
isA022551 := proc(n)
local a, b, c ;
for c from 0 do
if c^3 > n then
return false;
end if;
for a from 0 do
b2 := n-c^3-a^2 ;
if b2 < a^2 then
break;
end if;
if issqr(b2) then
return true;
end if;
end do:
end do:
end proc: # R. J. Mathar, Sep 02 2016
MATHEMATICA
max = 1000;
Table[x^2 + y^2 + z^3, {x, 0, Sqrt[max]}, {y, x, Sqrt[max - x^2]}, {z, 0, (max - x^2 - y^2)^(1/3)}] // Flatten // Union // Select[#, # <= max&]& (* Jean-François Alcover, Mar 23 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved