A147858 Differences of two coprime 4th powers.
0, 15, 65, 80, 175, 255, 369, 544, 609, 624, 671, 1105, 1295, 1695, 1776, 2145, 2320, 2385, 2400, 2465, 3439, 3471, 4015, 4095, 4160, 4641, 5936, 6095, 6305, 6545, 6560, 7599, 7825, 8080, 9855, 9919, 9999, 10545, 12209, 12240, 13345, 13920, 14016
Offset: 0
Keywords
Programs
-
Mathematica
Join[{0},Rest[#[[2]]-#[[1]]&/@Select[Subsets[Range[0,20]^4,{2}], CoprimeQ@@#&] //Union]] (* Harvey P. Dale, Dec 08 2016 *)
Comments