%I#9 2020年6月13日00:51:14
%S 28,35,91126133189217224280539637686728758549451001,
%电话:1008106413581456151215471729173617922198220522402261,
%电话:2331245727092926305930873402350035283591412342214312437549144921
%N个数,是两个正立方的和,可以被7整除。
%H Vincenzo Librandi,n的表,n=1..1000的a(n)</a>
%t到[n_]:=块[{t},并集@Reap[Do[If[Mod[t=x^3+y^3,7]==0,母猪@t],{x,n^(1/3)},{y,最小值[x,(n-x^3)^(1/3)]}][[2,1]];截至[5000](*Giovanni Resta_,2020年6月12日*)
%Y参考A003325。
%K nonn公司
%O 1,1号机组
%A Jun Mizuki(suzuki32(AT)sanken.osaka-u.ac.jp),2005年1月17日
%E由Vincenzo Librandi_于2013年5月8日将偏移量从0更改为1
|