检验过的
经核准的
提出
编辑
b[n_，i_，p]：=b[n，i，p]=如果[i（i+1）（2i+1）/6<n，0，如果[n==0，p！，如果[i^2>n，0；
a[n_]：=b[n，Sqrt[n]//楼层，0]；
a/@范围[0，82](*让-弗朗索瓦·奥尔科弗2020年10月29日之后阿洛伊斯·海因茨*)
a（14）＝6，因为我们有[9， 4, 1], [9, 1, 4], [4, 9, 1], [4, 1, 9], [1, 9, 4] 和[1， 4, 9].
Alois P.Heinz，<a href=“/A331844型/b331844.txt“>n表，n=0..20000时为a（n）</a>
a： =n->b（n$2, , isqrt公司(n个), 0):
b： =proc（n，i，p）选项记忆；
`如果`（i*（i+1）*（2*i+1）/6<n，0，`如果`（n=0，p！，
`如果`（i^2>n，0，b（n-i^2，i-1，p+1））+b（n，i-1（p）））
结束：
a： =n->b（n$2,0）：
seq（a（n），n=0..82）#阿洛伊斯·海因茨2020年1月30日
