%I #10 Dec 15 2023 19:17:56
%S 0,3,1,1,1,1,2,3,9,27,81,729,0,59049,-531441,14348907,-387420489,
%T 10460353203,-564859072962,22876792454961,-1853020188851841,
%U 150094635296999121,-12157665459056928801,2954312706550833698643,0
%N Bilinear recursive sequence.
%F a(n) * a(n-8) = 81 * (a(n-2)*a(n-6) - 2*a(n-4)^2).
%F 0 = a(n) * a(n-5) + 3 * a(n-1) * a(n-4) - 9 * a(n-2)*a(n-3).
%F a(12*n) = 0.
%F a(2*n+1) = a(-2*n+7) = a(4*n+2)/(81^(n-1)*(a(2*n-1)*a(2*n+2)^2 - a(2*n+3)*a(2*n)^2)) for all n in Z. - _Michael Somos_, Dec 10 2023
%F a(n+12) = -(-27)^(n+2) * a(n) for all n in Z. - _Michael Somos_, Dec 11 2023
%t a[ n_] := With[{m = Mod[n, 12]}, Sign[m] * 2^Boole[m==6] * (-1)^(Mod[Floor[n/12], 2]*(n-1)) * 3^(Boole[m==0] + Floor[(n-4)^2/8])]; (* _Michael Somos_, Dec 10 2023 *)
%o (PARI) {a(n) = sign(n%12) * (1 + (n%12==6)) * (-1)^(n\12%2 * (n-1)) * 3^((n%12==0) + (n-4)^2\8)};
%Y Cf. A078529, A006720, A006721.
%K sign,easy
%O 0,2
%A _Michael Somos_, Nov 25 2002