OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1)=17 since 17 = 3^2 + 2^3 = 4^2 + 1^3.
MATHEMATICA
lst={}; Do[Do[AppendTo[lst, n^2+m^3], {n, 5!}], {m, 5!}]; lst=Sort[lst]; lst2={}; Do[If[lst[[n]]==lst[[n+1]], AppendTo[lst2, lst[[n]]]], {n, Length[lst]-1}]; lst2; Take[Union[lst2], 123] (* Vladimir Joseph Stephan Orlovsky, Jul 17 2009 *)
PROG
(PARI) list(lim)=my(v=List(), u=List()); for(n=1, sqrtint(lim\1-1), for(m=1, sqrtnint(lim\1-n^2, 3), listput(v, n^2+m^3))); v=vecsort(v); for(i=2, #v, if(v[i]==v[i-1], listput(u, v[i]))); Set(u) \\ Charles R Greathouse IV, May 15 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Henry Bottomley, May 12 2000
STATUS
approved