|
%I #15 Sep 08 2022 08:46:02
%S 1,4,17,56,172,498,1395,3820,10307,27534,73064,193012,508341,1336132,
%T 3507189,9197732,24107124,63159782,165433895,433246860,1134484871,
%U 2970509594,7777554192,20363014056,53312938537,139578241348
%N Principal diagonal of the convolution array A213576.
%H Clark Kimberling, <a href="/A213577/b213577.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (5,-6,-3,6,1,-1).
%F a(n) = 5*a(n-1) - 6*a(n-2) - 3*a(n-3) + 6*a(n-4) + a(n-5) - a(n-6).
%F G.f.: x*(1 - x + 3*x^2 - 2*x^3)/((1 - 3*x + x^2)*(1 - x - x^2)^2).
%F a(n) = Fibonacci(2*n+3) - Fibonacci(n+3) - n*Fibonacci(n+1). - _G. C. Greubel_, Jul 05 2019
%t (See A213576.)
%t LinearRecurrence[{5,-6,-3,6,1,-1},{1,4,17,56,172,498},30] (* _Harvey P. Dale_, Aug 23 2012 *)
%t Table[Fibonacci[2n+3] -Fibonacci[n+3] -n*Fibonacci[n+1], {n,1,40}] (* _G. C. Greubel_, Jul 05 2019 *)
%o (PARI) vector(40, n, fibonacci(2*n+3) - fibonacci(n+3) - n*fibonacci(n+1)) \\ _G. C. Greubel_, Jul 05 2019
%o (Magma) [Fibonacci(2*n+3) -Fibonacci(n+3) -n*Fibonacci(n+1): n in [1..40]]; // _G. C. Greubel_, Jul 05 2019
%o (Sage) [fibonacci(2*n+3) - fibonacci(n+3) - n*fibonacci(n+1) for n in (1..40)] # _G. C. Greubel_, Jul 05 2019
%o (GAP) List([1..40], n-> Fibonacci(2*n+3) - Fibonacci(n+3) - n*Fibonacci(n+1)) # _G. C. Greubel_, Jul 05 2019
%Y Cf. A213576, A213500.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 18 2012
|
