Alois P. Heinz and Vaclav Kotesovec, <a href="/A229239/b229239_1.txt">Table of n, a(n) for n = 0..689</a> (terms 0..200 from Alois P. Heinz)
editing
approved
Alois P. Heinz, and Vaclav Kotesovec, <a href="/A229239/b229239_1.txt">Table of n, a(n) for n = 0..689</a> (terms 0..200</a> from Alois P. Heinz)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
b[n_, i_] := b[n, i] = If[n == 0, {1, 0}, If[i<1, {0, 0}, b[n, i-1] + If[ i^2 > n, {0, 0}, Function[g, g + {0, g[[1]]}][b[n - i^2, i]]]]]; a[n_] := b[n^2, n][[2]]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Nov 11 2015, after Alois P. Heinz *)
approved
editing
editing
approved
Row sums of A229468.
approved
editing
editing
approved