%I #14 Feb 24 2019 10:53:58
%S 1,1,3,8,25,85,318,1234,4884,19458,77727,310761,1242853,4971151,
%T 19884270,79536639,318145993,1272583241,5090332042,20361326983,
%U 81445306447,325781223902,1303124893253,5212499570050,20849998276525,83399993101506,333599972400353
%N Hypothetical numbers of terms in general expressions for coefficients of Lovelock Lagrangians.
%C Hypothetical extension of sequence A006372.
%H C. C. Briggs, <a href="http://arXiv.org/abs/gr-qc/9607033">A General Expression for the Quintic Lovelock Tensor</a>, arXiv:gr-qc/9607033, 1996-1997.
%H C. C. Briggs, <a href="http://arXiv.org/abs/gr-qc/9703074">A General Expression for the Quartic Lovelock Tensor</a>, arXiv:gr-qc/9703074, 1997.
%H C. C. Briggs, <a href="http://arXiv.org/abs/gr-qc/9808050">Some Possible Features of General Expressions for Lovelock Tensors ...</a>, arXiv:gr-qc/9808050, 1998-2000.
%F a(n+3) = 3*a(n+2) - 3*a(n+1) + a(n) + p(n+3) - 3*p(n+2) + 3*p(n+1) - p(n) + 2^(2*n + 1); a(n+4) = 7*a(n+3) - 15*a(n+2) + 13*a(n+1) - 4*a(n) + p(n+4) - 7*p(n+3) + 15*p(n+2) - 13*p(n+1) + 4*p(n); where p(n) is the partition function (i.e. number of partitions of n, A000041) and where p(0) = 1.
%t p = PartitionsP;
%t a[n_] := a[n] = If[n < 4, {1, 1, 3, 8}[[n+1]], a[n-3] - 3*a[n-2] + 3*a[n-1] - p[n-3] + 3*p[n-2] - 3*p[n-1] + p[n] + 2^(2*(n-3) + 1)];
%t Table[a[n], {n, 0, 30}] (* _Jean-François Alcover_, Feb 24 2019 *)
%Y Cf. A000041, A006372.
%K nonn
%O 0,3
%A C. C. Briggs (ccb104(AT)psu.edu)
%E More terms from _Jean-François Alcover_, Feb 24 2019