%I M4655 #16 Aug 06 2017 22:47:38
%S 1,9,81,8505,229635,413343,531972441,227988189,3419822835,
%T 29824274944035,375785864294841,307461161695779,1116569481947829,
%U 660923243352964935,849758455739526345,6875395665388507657395
%N Denominators of coefficients of Green function for cubic lattice.
%D G. S. Joyce, The simple cubic lattice Green function, Phil. Trans. Roy. Soc., 273 (1972), 583-610.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%F 9(n+1)(2n+1)(2n+3)A003301(n+1)/a(n+1)-2(2n+1)(10n^2+10n+3)A003301(n)/a(n)+4n^3A003301(n-1)/a(n-1) = 0. - _R. J. Mathar_, Dec 08 2005
%p Dnminus1 := 1 : print(denom(Dnminus1)) ; Dn := 2/9 : print(denom(Dn)) ; for nplus1 from 2 to 20 do n := nplus1-1 : Dnplus1 := (2*(2*n+1)*(10*n^2+10*n+3)*Dn-4*n^3*Dnminus1)/(9*nplus1*(2*n+1)*(2*n+3)) : print(denom(Dnplus1)) ; Dnminus1 := Dn : Dn := Dnplus1 : od : # _R. J. Mathar_
%Y Cf. A003301.
%K nonn,easy,frac
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _R. J. Mathar_, Dec 08 2005