%I #10 Sep 28 2023 02:03:48
%S -2,27,-576,16875,-629856,28588707,-1528823808,94143178827,
%T -6561000000000,510526328421483,-43873901280755712,
%U 4127185885192141707,-421812572812955541504,46542953399578857421875
%N a(n) = w(n+1)/(3*w(n)), where w = A203428.
%H G. C. Greubel, <a href="/A203429/b203429.txt">Table of n, a(n) for n = 1..250</a>
%F a(n) = -(-3)^(n-1) * (n+1)^n. - _G. C. Greubel_, Sep 28 2023
%t (* First program *)
%t f[j_]:= 1/(3*j); z = 16;
%t v[n_]:= Product[Product[f[k] - f[j], {j,k-1}], {k,2,n}]
%t 1/Table[v[n], {n,z}] (* A203428 *)
%t Table[v[n]/(3*v[n+1]), {n,z}] (* A203429 *)
%t (* Second program *)
%t Table[-(-3)^(n-1)*(n+1)^n, {n,20}] (* _G. C. Greubel_, Sep 28 2023 *)
%o (Magma) [-(-3)^(n-1)*(n+1)^n: n in [1..20]]; // _G. C. Greubel_, Sep 28 2023
%o (SageMath) [-(-3)^(n-1)*(n+1)^n for n in range(1,21)] # _G. C. Greubel_, Sep 28 2023
%Y Cf. A203427, A203428.
%K sign
%O 1,1
%A _Clark Kimberling_, Jan 02 2012