OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..200
Index entries for linear recurrences with constant coefficients, signature (2030,-1).
FORMULA
a(n+2) = 2030*a(n+1)-a(n).
a(n) = A145717(n) / 16129. - Colin Barker, Oct 20 2014
G.f.: -x*(x-1) / (x^2-2030*x+1). - Colin Barker, Oct 20 2014
EXAMPLE
a(1)=1 because 7^3-6^3=127*1^2.
MATHEMATICA
CoefficientList[Series[(1 - x)/(x^2 - 2030 x + 1), {x, 0, 20}], x] (* Vincenzo Librandi, Oct 20 2014 *)
PROG
(PARI) Vec(-x*(x-1)/(x^2-2030*x+1) + O(x^20)) \\ Colin Barker, Oct 20 2014
(Magma) I:=[1, 2029]; [n le 2 select I[n] else 2030*Self(n-1)-Self(n-2): n in [1..20]]; // Vincenzo Librandi, Oct 20 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Richard Choulet, Oct 16 2008
EXTENSIONS
Editing and more terms from Colin Barker, Oct 20 2014
STATUS
approved