OFFSET
0,6
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Peter Borwein and Kevin G. Hare, Some computations on Pisot and Salem numbers, 2000, table 1, p. 7.
Peter Borwein and Kevin G. Hare, Some computations on the spectra of Pisot and Salem numbers, Math. Comp. 71 (2002), 767-780.
Index entries for linear recurrences with constant coefficients, signature (1,0,1,0,1).
FORMULA
G.f.: (1 - x^3 - x^4) / (1 - x - x^3 - x^5). - Colin Barker, Dec 17 2017
MATHEMATICA
LinearRecurrence[{1, 0, 1, 0, 1}, {1, 1, 1, 1, 1}, 60] (* Vladimir Joseph Stephan Orlovsky, Feb 18 2012 *)
PROG
(PARI) Vec((1 - x^3 - x^4) / (1 - x - x^3 - x^5) + O(x^50)) \\ Colin Barker, Dec 17 2017
(PARI) my(p=Mod('x, 'x^5-'x^4-'x^2-1)); a(n) = vecsum(Vec(lift(p^n))); \\ Kevin Ryde, Jan 15 2021
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1 - x^3-x^4)/(1-x-x^3-x^5))); // G. C. Greubel, Nov 03 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Jun 20 2005
STATUS
approved