OFFSET
1,3
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..39986
MAPLE
isA022556 := proc(n)
local a2, b, c ;
for b from 0 do
if b^3 > n then
return false;
end if;
for c from b do
a2 := n-b^3-c^3 ;
if a2 < 0 then
break;
end if;
if issqr(a2) then
return true;
end if;
end do:
end do:
end proc: # R. J. Mathar, Sep 02 2016
MATHEMATICA
smax = 50000;
Table[s = i^2 + j^3 + k^3; If[s <= smax, s, Nothing], {i, 0, Sqrt[smax] // Ceiling}, {j, 0, smax^(1/3) // Ceiling}, {k, j, smax^(1/3) // Ceiling}] // Flatten // Union (* Jean-François Alcover, Feb 17 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Jean-François Alcover, Apr 07 2020
STATUS
approved