OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1).
FORMULA
From R. J. Mathar, Jan 17 2009: (Start)
G.f.: (3-8*x + 10*x^2 - 3*x^3)/(1 - x)^4.
a(n) = 3+A000330(n). (End)
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4). - Vincenzo Librandi, May 09 2017
MATHEMATICA
a=3; lst={}; Do[a=n^2+a; AppendTo[lst, a], {n, 0, 5!}]; lst
CoefficientList[Series[(3 - 8 x + 10 x^2 - 3 x^3) / (1 - x)^4, {x, 0, 50}], x] (* Vincenzo Librandi, May 09 2017 *)
PROG
(Magma) I:=[3, 4, 8, 17]; [n le 4 select I[n] else 4*Self(n-1)-6*Self(n-2)+4*Self(n-3)-Self(n-4): n in [1..60]]; // Vincenzo Librandi, May 09 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 17 2008
EXTENSIONS
Added indices to definition. Corrected offset R. J. Mathar, Jan 17 2009
STATUS
approved