STATUS
proposed
approved
proposed
approved
editing
proposed
G.f: (q^2*(1+q^2+2*q^4))/((1-q^2)*(1-q^4)*Product_{i>0} (1-q^i)). (conjectured)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
b[n_, i_, p_, l_] := b[n, i, p, l] = If[n == 0, p^2, If[i > n, 0, b[n, i + 1, p, 1] + Sum[b[n - i*j, i+1, p + If[j > 1, 1, 0]+l, 0], {j, 1, n/i}]]];
a[n_] := b[n, 1, 0, 0]/2;
Table[a[n], {n, 0, 50}] (* Jean-François Alcover, May 18 2018, after Alois P. Heinz *)
approved
editing
editing
approved
Alois P. Heinz, <a href="/A302348/b302348.txt">Table of n, a(n) for n = 0..1000</a>
approved
editing
editing
approved