OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
EXAMPLE
520 is in the sequence because 520 = 22^2 + 6^2 = 8^3 + 2^3.
MAPLE
s_sq:=proc(n) local i, f; f:=false:
for i while 2*i^2<=n do
if type(sqrt(n-i^2), posint) then f:=true:break fi od;
f end;
s_cb:=proc(n) local i, f; f:=false:
for i while 2*i^3<=n do
if type(surd(n-i^3, 3), posint) then f:=true:break fi od;
f end;
for n to do if s_sq(n) and s_cb(n)then prunt(n) fi od:
MATHEMATICA
n2 = 100; n3 = Ceiling[n2^(2/3)]; t2 = Flatten[Table[a^2 + b^2, {a, n2}, {b, a, n2}]]; t3 = Flatten[Table[a^3 + b^3, {a, n3}, {b, a, n3}]]; Intersection[Union[Select[t2, # <= n2^2 &]], Union[Select[t3, # <= n3^3 &]]] (* T. D. Noe, Oct 18 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Letsko, Sep 30 2013
STATUS
approved