%I #25 Aug 29 2024 15:03:13
%S 2,1,1,2,5,14,42,128,384,1123,3204,8955,24629,66913,180127,481568,
%T 1280855,3393644,8965476,23633702,62197602,163483201,429300366,
%U 1126514817,2954438135,7745187919,20297902537,53182073798,139315427369,364898425658,955648284654
%N a(n) = Fibonacci(2n-1) - 2^n + binomial(n,2) + 2.
%C If n>0, number of Catalan words of length n avoiding the pattern 1234. The unrestricted Catalan words of length n are enumerated by A000108(n-1).
%H Paolo Xausa, <a href="/A356696/b356696.txt">Table of n, a(n) for n = 0..1000</a>
%H Toufik Mansour and Mark Shattuck, <a href="https://doi.org/10.2298/FIL1703543M">Avoidance of classical patterns by Catalan sequences</a>, Filomat 31, No. 3, 543-558 (2017). Corollary 2.5.
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (8,-25,39,-32,13,-2).
%F G.f.: ( 2-15*x+43*x^2-59*x^3+39*x^4-9*x^5 ) / ( (2*x-1)*(x^2-3*x+1)*(x-1)^3 ).
%t LinearRecurrence[{8, -25, 39, -32, 13, -2}, {2, 1, 1, 2, 5, 14}, 50] (* or *)
%t A356696[n_] := Fibonacci[2*n - 1] - 2^n + Binomial[n, 2] + 2;
%t Array[A356696, 50, 0] (* _Paolo Xausa_, Aug 29 2024 *)
%Y Cf. A000045, A000108, A000325 (avoiding 123), A307464, A307465, A307466.
%K nonn,easy
%O 0,1
%A _R. J. Mathar_, Aug 23 2022