OFFSET
1,3
EXAMPLE
All solutions for n=3:
.-1...-2...-1
.-1....1....0
..2....1....0
MATHEMATICA
AatE[n_, nminusfE_, E_] := AatE[n, nminusfE, E] = Module[{a, fEminus, fEplus, f0, resn}, If[E == 0, If[n == 0, 1, 0], a = 0; For[fEminus = 0, fEminus <= nminusfE, fEminus++, For[fEplus = 0, fEplus <= nminusfE - fEminus, fEplus++, f0 = nminusfE - fEminus - fEplus; resn = n - (2^E + 1)*fEminus + (2^E - 1)*fEplus; If[Abs[resn] <= (1 + 2^(E - 1))*f0, a = a + AatE[resn, f0, E - 1]]]]; a]];
T[n_, k_] := AatE[n, n, n + k - 2];
CROSSREFS
KEYWORD
nonn
AUTHOR
R. H. Hardin, Mar 18 2011
EXTENSIONS
More terms from R. J. Mathar, May 11 2023
STATUS
approved