A265625 Differences between two positive cubes in more than two ways.
3367, 26936, 90909, 152551, 205352, 215488, 420875, 622232, 625177, 727272, 754299, 757701, 845208, 1147627, 1154881, 1220408, 1642816, 1723904, 2113921, 2454543, 2741256, 3056473, 3367000, 3442887, 3492125, 4118877, 4481477, 4977856, 5001416, 5544504
Offset: 1
Keywords
Examples
3367 = 15^3 - 2^3 = 16^3 - 9^3 = 34^3 - 33^3.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
r = 5544504; p = 3; Rest@Sort@Drop[Flatten@Select[Tally@Reap[Do[n = i^p - j^p; If[n <= r, Sow[n]], {i, Ceiling[(r/p)^(1/(p - 1))]}, {j, i}]][[2, 1]], #[[2]] > 2 &], {2, -1, 2}]