OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
3367 = 15^3 - 2^3 = 16^3 - 9^3 = 34^3 - 33^3.
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}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Dec 10 2015
STATUS
approved