OFFSET
0,2
COMMENTS
MATHEMATICA
Join[{0}, Rest[#[[2]]-#[[1]]&/@Select[Subsets[Range[0, 20]^4, {2}], CoprimeQ@@#&] //Union]] (* Harvey P. Dale, Dec 08 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Nov 15 2008
STATUS
approved