%I #17 Mar 19 2020 05:34:34
%S 721,728,999,5768,5824,5859,7992,8911,9919,10621,12663,12824,19467,
%T 19656,23877,25669,26973,27937,28063,34209,35208,35929,41743,43561,
%U 46144,46592,46872,49959,53144,63936,68857,68913,71288,77779,79352,80379,84968,90125
%N Differences between two positive cubes in exactly 2 ways.
%H Giovanni Resta, <a href="/A014440/b014440.txt">Table of n, a(n) for n = 1..10000</a>
%t r = 90125; 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]] == 2 &], {2, -1, 2}] (* _Arkadiusz Wesolowski_, Dec 10 2015 *)
%Y Cf. A000578, A181123, A014439 (exactly one way), A034179 (more than one way), A265625 (more than two ways), A014441 (exactly three ways), A333376, A333377.
%K nonn
%O 1,1
%A Glen Burch (gburch(AT)erols.com)
%E Extended by _Don Reble_, Nov 19 2006
|