(MAGMAMagma) I:=[1, 5]; [n le 2 select I[n] else 5*Self(n-1) + 5*Self(n-2): n in [0..30]]; // G. C. Greubel, Jan 16 2018
(MAGMAMagma) I:=[1, 5]; [n le 2 select I[n] else 5*Self(n-1) + 5*Self(n-2): n in [0..30]]; // G. C. Greubel, Jan 16 2018
(Sage) [lucas_number1(n, 5, -5) for n in xrangerange(1, 22)] # Zerinvary Lajos, Apr 24 2009
editing
approved
Join[{a=0, b=1}, Table[c=5*b+5*a; a=b; b=c, {n, 100}]] (* Vladimir Joseph Stephan Orlovsky, Jan 16 2011 *)
proposed
editing
editing
proposed
LinearRecurrence[{5, 5}, {1, 5}, 30] (* G. C. Greubel, Jan 16 2018 *)
(PARI) x='x+O('x^30); Vec(1/(1 - 5*x - 5*x^2)) \\ G. C. Greubel, Jan 16 2018
(MAGMA) I:=[1, 5]; [n le 2 select I[n] else 5*Self(n-1) + 5*Self(n-2): n in [0..30]]; // G. C. Greubel, Jan 16 2018
approved
editing
proposed
approved
editing
proposed
Eric Weisstein, 's World of Mathematics, <a href="http://mathworld.wolfram.com/HoradamSequence.html">Horadam Sequence</a>
proposed
editing
editing
proposed