This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A100545 #33 Sep 08 2022 08:45:15 %S A100545 7,19,50,131,343,898,2351,6155,16114,42187,110447,289154,757015, %T A100545 1981891,5188658,13584083,35563591,93106690,243756479,638162747, %U A100545 1670731762,4374032539,11451365855,29980065026,78488829223,205486422643,537970438706,1408424893475,3687304241719,9653487831682,25273159253327 %N A100545 Expansion of (7-2*x) / (1-3*x+x^2). %C A100545 A Floretion integer sequence relating to Fibonacci numbers. %C A100545 Inverse binomial transform of A013655; inversion of A097924. %H A100545 Colin Barker, <a href="/A100545/b100545.txt">Table of n, a(n) for n = 0..1000</a> %H A100545 Mark W. Coffey, James L. Hindmarsh, Matthew C. Lettington, John Pryce, <a href="http://arxiv.org/abs/1502.03085">On Higher Dimensional Interlacing Fibonacci Sequences, Continued Fractions and Chebyshev Polynomials</a>, arXiv:1502.03085 [math.NT], 2015 (see p. 31). %H A100545 Tanya Khovanova, <a href="http://www.tanyakhovanova.com/RecursiveSequences/RecursiveSequences.html">Recursive Sequences</a> %H A100545 <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (3,-1). %F A100545 a(n-1) = 4*Fibonacci(2*n) + Fibonacci(2*n-1) + Fibonacci(2*n+1). %F A100545 a(n) + a(n+1) = A055849(n+2). %F A100545 a(n) = 3*a(n-1) - a(n-2) with a(0)=7 and a(1)=19. - _Philippe Deléham_, Nov 16 2008 %F A100545 a(n) = (2^(-1-n)*((3-sqrt(5))^n*(-17+7*sqrt(5)) + (3+sqrt(5))^n*(17+7*sqrt(5)))) / sqrt(5). - _Colin Barker_, Oct 14 2015 %F A100545 From _G. C. Greubel_, Jan 17 2020: (Start) %F A100545 a(n) = Fibonacci(2*n+4) + Lucas(2*n+3). %F A100545 E.g.f.: 2*exp(3*t/2)*(cosh(sqrt(5)*t/2) + (4/sqrt(5))*sinh(sqrt(5)*t/2)). (End) %p A100545 F := proc(n) combinat[fibonacci](n) ; end: A100545 := proc(n) 4*F(2*(n+1)) + F(2*n+1)+F(2*n+3) ; end: for n from 0 to 30 do printf("%d,",A100545(n)) ; od ; # _R. J. Mathar_, Oct 26 2006 %t A100545 Table[Fibonacci[2*(n+2)] + LucasL[2*n+3], {n,0,30}] (* _G. C. Greubel_, Jan 17 2020 *) %o A100545 (PARI) Vec((7-2*x)/(1-3*x+x^2) + O(x^30)) \\ _Michel Marcus_, Feb 11 2015 %o A100545 (Magma) [Fibonacci(2*n+4) +Lucas(2*n+3): n in [0..30]]; // _G. C. Greubel_, Jan 17 2020 %o A100545 (Sage) [fibonacci(2*n+4) +lucas_number2(2*n+3,1,-1) for n in (0..30)] # _G. C. Greubel_, Jan 17 2020 %o A100545 (GAP) List([0..30], n-> Fibonacci(2*n+4) +Lucas(1,-1,2*n+3)[2] ); # _G. C. Greubel_, Jan 17 2020 %Y A100545 Cf. A000032, A000045, A001906, A005248, A013655, A097924. %K A100545 nonn,easy %O A100545 0,1 %A A100545 _Creighton Dement_, Dec 31 2004 %E A100545 Corrected and extended by _T. D. Noe_ and _R. J. Mathar_, Oct 26 2006