A014441 Differences between two positive cubes in exactly 3 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, 4481477, 4977856, 5001416, 5544504, 5818176

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Mathematica

r = 5818176; p = 3; 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]] == 3 &], {2, -1, 2}] (* Arkadiusz Wesolowski, Dec 10 2015 *)

Crossrefs

Cf. A000578, A181123, A014439 (exactly one way), A034179 (more than one way), A014440 (exactly two ways), A265625 (more than two ways).

Sequence in context: A069367 A031556 A265625 * A293651 A212948 A204471

Adjacent sequences: A014438 A014439 A014440 * A014442 A014443 A014444

Keyword

nonn

Author

Glen Burch (gburch(AT)erols.com)

Extensions

Extended by Don Reble, Nov 19 2006

Status

approved