OFFSET
1,1
MATHEMATICA
aa = {}; bb = {}; cc = {}; Do[Do[If[(N[Sqrt[x^5 + n], 300] - Round[Sqrt[x^5 + n]])^2 < 10^-300, AppendTo[aa, n]; AppendTo[bb, x]; AppendTo[cc, Round[Sqrt[x^5 + n]]] , {x, 1, 100}], {n, 1, 100000}]; cc (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, May 13 2010
STATUS
approved