proposed
approved
proposed
approved
editing
proposed
0, 0, 0, 0, -1, -1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 2, 2, 3, 2, 2, 0, 1, 3, 3, 4, 3, 3, 0, 3, 4, 6, 6, 7, 6, 6, 0, 2, 5, 6, 8, 8, 9, 8, 8, 0, 4, 6, 9, 10, 12, 12, 13, 12, 12, 0, 3, 7, 9, 12, 13, 15, 15, 16, 15, 15, 0, 5, 8, 12, 14, 17, 18, 20, 20, 21, 20, 20
h[n_] := If[n < 3, {0, 0, -1}[[n + 1]], Quotient[n^2 - 4 n + 3, 4]];
A[n_, k_] := A[n, k] = If[k == 0, h[n], If[k == 1, h[n+1], A[n, k-2] + n]];
Table[A[n - k, k], {n, 0, 11}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Jul 22 2019, after Peter Luschny *)
approved
editing
proposed
approved
editing
proposed
Cf. A008851.
Let h(n) = 0, 0, -1, A198442(1), A198442(2), A198442(3), ... Then A(n, 0) = h(n), A(n, 1) = h(n+1) and A(n, k) = A(n, k-2) + n otherwise [2].
Before: A(n,k) = - A(n,k-1) + (= 0, -1, 1, 0, 2, 1, ... = [1]). which variable is running, n or k?
After: A(n,k) = - A(n,k-3) + (= 0, 0, 3, 3, 6, 6, ... = [3]). ?
A(n,k) = - A(n,k-4) + (= 0, 2, 4, 6, 8, 10, ... = [4]). ?
A(n,k) = - A(n,k-5) + (= 0, 1, 5, 6, 10, 11, 15, 16, ... = A008851(n+1)).
Note that [1] + [4] = A008851(n+1). - _ Paul Curtz _, Sep 09 2018
proposed
editing
editing
proposed
Before: A(n,k) = A(n,k-1) + (0, -1, 1, 0, 2, 1, ... = [1] ).
After: A(n,k) = A(n,k-3) + (0, 0, 3, 3, 6, 6, ... = [3] ).
A(n,k) = A(n,k-4) + (0, 2, 4, 6, 8, 10, ... = [4] ).
Let h(n) = 0, 0, -1, A198442(1), A198442(2), A198442(3), ... Then A(n, 0) = h(n), A(n, 1) = h(n+1) and A(n, k) = A(n, k-2) + n otherwise [2].
Before: A(n,k) = A(n,k-1) +(0, -1, 1, 0, 2, 1, ... = [1] ).
After: A(n,k) = A(n,k-3) + (0, 0, 3, 3, 6, 6, ... = [3] ).
A(n,k) = A(n,k-4) + (0, 2, 4, 6, 8, 10, ... = [4] ).
A(n,k) = A(n,k-5) + (0, 1, 5, 6, 10, 11, 15, 16, ... = A008851(n+1)).
Note that [1] + [4] = A008851(n+1). - _ Paul Curtz _, Sep 09 2018
Cf. A008851.
proposed
editing