编辑

经核准的

A024612号：=进程（n）

局部i，j，disc；

#n=i^2+j^2-i*j=（j-i）^2+i*j，1<=i<j

#所以（j-i）>=1，i*j>=j，i^2+j^2-i*j>=1+j最大搜索半径

对于从2到n-1的j do

#i=（j+-sqrt（4n-3j^2））/2

圆盘：=4*n-3*j^2；

如果盘>=0，则

如果issqr（光盘），则

i:=（j+sqrt（圆盘））/2；

如果类型（i，‘integer’）且i>=1且i<j，则

printf（“%d，”，n）；

结束条件：；

如果光盘>0，则

i:=（j-sqrt（光盘））/2；

如果类型（i，‘integer’）且i>=1且i<j，则

printf（“%d，”，n）；

结束条件：；

结束条件：；

结束条件：；

结束条件：；

结束do：

结束进程：

对于t从1到120 do

A024612号（t） ；

结束do：#R.J.马塔尔2016年8月21日

经核准的

编辑

克拉克·金伯利（ck6（AT）evansville.edu）

克拉克·金伯利

OEIS服务器: https://oeis.org/edit/global/285

非n,新的

非n

克拉克·金伯利（ck6@雪松.(自动变速箱)埃文斯维尔）

a（n）=当所有i^2-i*j+j^2，其中1<=i<j按递增顺序排列时，位置n中的数字。

3, 7, 7, 12, 13, 13, 19, 19, 21, 21, 27, 28, 28, 31, 31, 37, 37, 39, 39, 43, 43, 48, 49, 49, 52, 52, 57, 57, 61, 61, 63, 63, 67, 67, 73, 73, 75, 76, 76, 79, 79, 84, 84, 91, 91, 91, 91, 93, 93, 97, 97, 103, 103, 108, 109, 109, 111, 111, 112, 112, 117, 117, 124, 124, 127, 127, 129, 129, 133

1,1

非n

克拉克·金伯利(ck6@cedar.evansville.edu)

经核准的