%I#29 2017年5月7日13:27:45

%S 8,10,14,28,32,33,40,56,57,65,71,72,74,78,90105112114126128130，

%电话132140148154155160176193200217218224228250252260266，

%电话：273280284288296297305312329336344349350360392

%N数N，使得N^3-k^3是某些k<N，k>0的平方。

%C有关n^3-k^3的可能值，请参见A038596=A038597^2。

%H Nathaniel Johnston，<a href=“/A228946/b228946.txt”>n，a（n）表，n=1..5000</a>

%p是A228946：=进程（n）局部k；对于k到n-1，如果issqr（n^3-k^3）为do，那么如果end为do则返回真end；返回假结束进程；对于从1到400的n，如果是A228946（n），则打印（n）：end-if：end-do：#_Nathaniel Johnston_，2013年10月7日

%t k3sQ[n_]：=计数[n^3-范围[n-1]^3，_？（整数Q[Sqrt[#]]&）]>0；选择[范围[400]，k3sQ]（*_哈维·P·戴尔，2017年5月7日*）

%o（PARI）用于（n=1999，用于（k=1，n-1，issquare（n^3-k^3）&！打印1（n“，”）&中断）

%o（PARI）是（n）=（k=1，n-1，发行方（n^3-k^3）&返回（1））

%Y参见A001922、A038593-A038598、A014439、A014440、A014441、A071954。

%K nonn公司

%O 1,1号机组

%A _M.F.Hasler，2013年10月5日