A001386 Coordination sequence for 4-dimensional I-centered tetragonal orthogonal lattice.

1, 12, 56, 164, 368, 700, 1192, 1876, 2784, 3948, 5400, 7172, 9296, 11804, 14728, 18100, 21952, 26316, 31224, 36708, 42800, 49532, 56936, 65044, 73888, 83500, 93912, 105156, 117264, 130268, 144200, 159092, 174976, 191884, 209848, 228900, 249072, 270396, 292904

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Examples

			G.f.: (1+x)^2*(1+6*x+x^2)/(1-x)^4. - _Colin Barker_, Apr 14 2012
		

References

• M. O'Keeffe, Coordination sequences for lattices, Zeit. f. Krist., 210 (1995), 905-908.

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000
• Hamzeh Mujahed and Benedek Nagy, Wiener Index on Lines of Unit Cells of the Body-Centered Cubic Grid, Mathematical Morphology and Its Applications to Signal and Image Processing, 12th International Symposium, ISMM 2015.
• M. O'Keeffe, Coordination sequences for lattices, Zeit. f. Krist., 210 (1995), 905-908.
• M. O'Keeffe, Coordination sequences for lattices, Zeit. f. Krist., 210 (1995), 905-908. [Annotated scanned copy]
• Index entries for linear recurrences with constant coefficients, signature (4, -6, 4, -1).

Crossrefs

Equals 4 * A004006(2n), n>0.

Programs

Maple

[ seq( (16*k^3+20*k)/3, k=1..40) ];

Mathematica

CoefficientList[Series[(1+x)^2*(1+6*x+x^2)/(1-x)^4,{x,0,30}],x] (* Vincenzo Librandi, Apr 15 2012 *)