OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..9477
MAPLE
isA022557 := proc(n)
not isA022556(n) ;
end proc:
n := 1:
for c from 0 do
if isA022557(c) then
printf("%d %d\n", n, c);
n := n+1 ;
end if;
end do: # R. J. Mathar, Sep 02 2016
MATHEMATICA
smax = 50000;
A022556 = 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;
Complement[Range[smax], A022556] (* Jean-François Alcover, Feb 20 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved