Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 May 19 2024 08:40:54
%S -1,2,-2,2,-1,2,2,8,22,68,212,678,2207,7298,24458,82928,284066,981884,
%T 3421316,12007556,42416486,150718772,538421588,1932856592,6969847484,
%U 25237057112,91729488352,334589415278,1224445617887,4494622119426,16545704494682,61071167108960,225982053183050
%N a(1)=-1, a(2)=2, thereafter a(n) = (1/(2n))*((7n-22)a(n-1)+2(2n-1)a(n-2)).
%H Liu Yanpei, <a href="https://doi.org/10.1016/0095-8956(84)90018-2">On the number of rooted c-nets</a>, J. Combin. Theory, B 36 (1984), 118-123. See the sequence R_n.
%F A000287(n) = (-1)^n*2 + a(n-1).
%p R:=proc(n) option remember; if n=1 then -1 elif n=2 then 2 else
%p (1/(2*n))*((7*n-22)*R(n-1)+2*(2*n-1)*R(n-2)); fi; end;
%p [seq(R(n),n=1..40)];
%t a[n_] := a[n] = Which[n == 1, -1, n == 2, 2, True, (1/(2*n))*((7*n-22)*a[n-1]+2*(2*n-1)*a[n-2])]; Table[a[n], {n, 1, 40}] (* _Jean-François Alcover_, Mar 06 2014, after Maple *)
%Y Cf. A000287.
%K sign
%O 1,2
%A _N. J. A. Sloane_, Mar 28 2012