login
Restricted permutations.
(Formerly N1692)
2

%I N1692 #18 Jul 02 2023 14:14:28

%S 6,9,12,18,27,42,66,105,168,270,435,702,1134,1833,2964,4794,7755,

%T 12546,20298,32841,53136,85974,139107,225078,364182,589257,953436,

%U 1542690,2496123,4038810,6534930,10573737,17108664,27682398,44791059

%N Restricted permutations.

%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

%H Vincenzo Librandi, <a href="/A036999/b036999.txt">Table of n, a(n) for n = 0..1000</a>

%H N. S. Mendelsohn, <a href="http://dx.doi.org/10.4153/CMB-1961-005-4">Permutations with confined displacement</a>, Canad. Math. Bull., 4 (1961), 29-38.

%H <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (2, 0, -1).

%F 3*A000381.

%F G.f.: 3*(2-x-2*x^2)/((x^2+x-1)*(x-1)). - _Vincenzo Librandi_, Jul 01 2017

%t Join[{6}, Table[3 Fibonacci[n+3] + 3, {n, 0, 40}]] (* or *) CoefficientList[Series[3 (2 - x - 2 x^2) / ((x^2 + x - 1) (x - 1)), {x, 0, 33}], x] (* _Vincenzo Librandi_, Jul 01 2017 *)

%o (Magma) [6] cat [3*Fibonacci(n+3)+3: n in [0..40]]; // _Vincenzo Librandi_, Jul 01 2017

%Y Equals A022086(n+3) + 3.

%K nonn

%O 0,1

%A _N. J. A. Sloane_