检验过的
经核准的
提出
编辑
b[n_，i_，t_]：=b[n，i，t]=如果[n==0，如果[t==0、1、0]，
如果[Min[i，t]<1，0，b[n，i-2，t]+
如果[i^2＞n，0，b[n-i^2，i-2，t-1]]]]；
a[n_]：=函数[m，b[m，函数[r，r+1-Mod[r，2]][楼层@平方米[m] ]，4]][8n+4]；
a/@范围[0100](*Jean-François Alcover公司2021年5月30日之后阿洛伊斯·海因茨*)
Robert Israel，<a href=“/A316491型/b316491.txt“>n表，n=0..10000时为a（n）</a>
a[n_]：=计数[IntegerPartitions[8 n+4，{4}，范围[1，Sqrt[8 n%4]，2]^2]，w_/；最大@差异@w＜0]；数组[a，87，0](*乔瓦尼·雷斯塔2018年8月12日*）
