OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
J. H. Conway and N. J. A. Sloane, Low-Dimensional Lattices VII: Coordination Sequences, Proc. Royal Soc. London, A453 (1997), 2369-2389 (pdf).
Joan Serra-Sagrista, Enumeration of lattice points in l_1 norm, Inf. Proc. Lett. 76 (1-2) (2000) 39-44.
Index entries for linear recurrences with constant coefficients, signature (0, 16, 0, -120, 0, 560, 0, -1820, 0, 4368, 0, -8008, 0, 11440, 0, -12870, 0, 11440, 0, -8008, 0, 4368, 0, -1820, 0, 560, 0, -120, 0, 16, 0, -1).
FORMULA
G.f.: (x^32 +496*x^30 +35960*x^28 +906192*x^26 +10551068*x^24 +524288*x^23 +68444400*x^22 +18350080*x^21 +285430600*x^20 +143130624*x^19 +733841744*x^18 +374865920*x^17 +1022804550*x^16 +374865920*x^15 +733841744*x^14 +143130624*x^13 +285430600*x^12 +18350080*x^11 +68444400*x^10 +524288*x^9 +10551068*x^8 +906192*x^6 +35960*x^4 +496*x^2 +1) / ((x-1)^16*(x+1)^16). - Colin Barker, Feb 26 2013
MAPLE
f := proc(m) local k, t1; t1 := 2^(n-1)*binomial((n+2*m)/2-1, n-1); if m mod 2 = 0 then t1 := t1+add(2^k*binomial(n, k)*binomial(m-1, k-1), k=0..n); fi; t1; end; where n=16.
MATHEMATICA
CoefficientList[Series[(x^32 + 496 x^30 + 35960 x^28 + 906192 x^26 + 10551068 x^24 + 524288 x^23 + 68444400 x^22 + 18350080 x^21 + 285430600 x^20 + 143130624 x^19 + 733841744 x^18 + 374865920 x^17 + 1022804550 x^16 + 374865920 x^15 + 733841744 x^14 + 143130624 x^13 + 285430600 x^12 + 18350080 x^11 + 68444400 x^10 + 524288 x^9 + 10551068 x^8 + 906192 x^6 + 35960 x^4 + 496 x^2 + 1)/((x - 1)^16 (x + 1)^16), {x, 0, 30}], x] (* Vincenzo Librandi, Oct 21 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Joan Serra-Sagrista (jserra(AT)ccd.uab.es)
EXTENSIONS
Recomputed by N. J. A. Sloane, Nov 27 1998
More terms from Colin Barker, Feb 26 2013
STATUS
approved