%I#13 2017年10月19日03:13:48

%S 7,19,26,37,56,61,63,91,98117124127152169189208215217218，

%电话：2712792963163353423863873974469485488504511513，

%电话：547602604631657665702721728784817819866875919936973988

%N正立方体之间在1、2或3方面的差异：A014439、A014440和A014441的并集。

%H Robert Israel，n的表，n=1..10000的a（n）</a>

%p N:=1000:#获取所有项<=N

%pX:=楼层（平方米（N/3））：

%p V：=矢量（N）：

%p代表x从2到x do

%p如果x^3>N，则

%p y0：=iroot（x^3-N，3）；

%p如果x^3-y0^3>N，则y0:=y0+1 fi；

%p其他y0:=1 fi；

%p代表y从y0到x-1 do

%p V[x^3-y^3]：=V[x^3-y^3]+1

%日期

%日期：

%p选择（t->V[t]<=3和V[t]>=1，[$1..N]）；#_罗伯特·伊斯雷尔（Robert Israel），2015年12月10日

%t r=988；p=3；排序@Drop[压扁@选择[收割时计数[Do[n=i^p-j^p；If[n<=r，Sow[n]]，{i，天花板[（r/p）^（1/（p-1））]}，{j，i}][[2，1]]，0<#[2]]<4&]，{2，-1，2}]（*Arkadiusz Wesolowski_，2015年12月10日*）

%Y参见A038594、A038595、A038586、A03859、A03858。

%K nonn公司

%O 1,1号机组

%杰夫·伯奇（_Jeff Burch）_

%E修正人：Don Reble_，2006年11月19日