# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a145934 Showing 1-1 of 1 %I A145934 #45 Feb 28 2024 15:58:44 %S A145934 1,1,-5,-11,19,85,-29,-539,-365,2869,5059,-12155,-42509,30421,285475, %T A145934 102949,-1609901,-2227595,7431811,20797381,-23793485,-148577771, %U A145934 -5816861,885649765,920550931,-4393347659,-9916653245,16443432709 %N A145934 Expansion of 1/(1-x*(1-6*x)). %C A145934 Row sums of Riordan array (1, x(1-6x)). %C A145934 For positive n, a(n) equals the determinant of the n X n tridiagonal matrix with 1's along the main diagonal, 3's along the superdiagonal, and 2's along the subdiagonal (see Mathematica code below). - _John M. Campbell_, Jul 08 2011 %H A145934 Seiichi Manyama, Table of n, a(n) for n = 0..2569 %H A145934 Taras Goy and Mark Shattuck, Determinants of Toeplitz-Hessenberg Matrices with Generalized Leonardo Number Entries, Ann. Math. Silesianae (2023). See p. 17. %H A145934 Index entries for linear recurrences with constant coefficients, signature (1,-6). %F A145934 a(n) = Sum_{k=0..n} A109466(n,k)*6^(n-k). %F A145934 a(n) = a(n-1) - 6*a(n-2); a(0)=1, a(1)=1. - _Philippe Deléham_, Oct 25 2008 %t A145934 Table[Det[Array[KroneckerDelta[#1, #2] + KroneckerDelta[#1, #2 + 1]*2 + KroneckerDelta[#1, #2 - 1]*3 &, {n, n}]], {n, 1, 40}] (* _John M. Campbell_, Jul 08 2011 *) %t A145934 LinearRecurrence[{1,-6}, {1,1}, 30] (* _G. C. Greubel_, Jan 14 2018 *) %o A145934 (Sage) [lucas_number1(n,1,6) for n in range(1, 29)] # _Zerinvary Lajos_, Apr 22 2009 %o A145934 (PARI) Vec(1/(1-x*(1-6*x))+O(x^99)) \\ _Charles R Greathouse IV_, Sep 23 2012 %o A145934 (Magma) I:=[1,1]; [n le 2 select I[n] else Self(n-1) - 6*Self(n-2): n in [1..30]]; // _G. C. Greubel_, Jan 14 2018 %Y A145934 Cf. A010892, A107920, A106852, A106853, A106854. %K A145934 sign,easy %O A145934 0,3 %A A145934 _Philippe Deléham_, Oct 25 2008 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE