|
%I #48 Apr 27 2020 06:23:19
%S 1,14,98,462,1666,4942,12642,28814,59906,115598,209762,361550,596610,
%T 948430,1459810,2184462,3188738,4553486,6376034,8772302,11879042,
%U 15856206,20889442,27192718,35011074,44623502,56345954,70534478
%N Coordination sequence for 7-dimensional cubic lattice.
%H Seiichi Manyama, <a href="/A008415/b008415.txt">Table of n, a(n) for n = 0..10000</a>
%H J. H. Conway and N. J. A. Sloane, Low-Dimensional Lattices VII: Coordination Sequences, Proc. Royal Soc. London, A453 (1997), 2369-2389 (<a href="http://neilsloane.com/doc/Me220.pdf">pdf</a>).
%H Milan Janjić, <a href="https://arxiv.org/abs/1905.04465">On Restricted Ternary Words and Insets</a>, arXiv:1905.04465 [math.CO], 2019.
%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (7,-21,35,-35,21,-7,1).
%F G.f.: ((1+x)/(1-x))^7.
%F a(n) = 4*n*n*(2*n*n + 7)*(n*n + 14)/45 + 2 - 0^n. - _George F. Johnson_, Feb 21 2013
%F a(n) = A008414(n) + A008414(n-1) + a(n-1). - _Bruce J. Nicholson_, Dec 17 2017
%F n*a(n) = 14*a(n-1) + (n-2)*a(n-2) for n > 1. - _Seiichi Manyama_, Jun 06 2018
%t CoefficientList[Series[((1+x)/(1-x))^7,{x,0,30}],x] (* _Harvey P. Dale_, Oct 11 2015 *)
%o (Python)
%o R = []
%o for n in range(29):
%o r=4*n*n*(2*n*n +7)*(n*n +14)//45 +2-0**n
%o R.append(r)
%o print(R)
%o # _George F. Johnson_ Feb 02 2013
%o (PARI) a(n) = 2*(4*n^6+70*n^4+196*n^2+45)/45-0^n; \\ _Altug Alkan_, Dec 18 2017
%Y Cf. A008414.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
|
