OFFSET
1,1
LINKS
EXAMPLE
433 is in the sequence since we have 42^4 = 143^3 + 433^2.
MATHEMATICA
(* Same program as A096741 except the final selection : *) nmax = 25000; r[{n_, x_}] := (rn = Reduce[x != 0 && y > 0 && GCD[n, x, y] == 1 && n^4 == x^3 + y^2, y, Integers]; If[rn =!= False, {n, x, y} /. ToRules[rn], {0, 0, 0}]); tab = Table[ r@{a[k][s, t] // Abs, -b[k][s, t]}, {k, 1, 7}, {s, -5, 8}, {t, 0, 5}] // Flatten[#, 2] & // Select[#, 0 < #[[1]] < nmax &] & // Union; Select[tab, # != {0, 0, 0} &][[All, 3]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jean-François Alcover, Jan 24 2013
STATUS
approved