OFFSET
0,4
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000 [a(0)=1 inserted by Georg Fischer, Jan 17 2021]
Index entries for linear recurrences with constant coefficients, signature (0,0,3).
MATHEMATICA
lst = {}; Do[a = Ceiling[25*3^(n - 3)]; b = Floor[5*3^(n - 1)]; c = 3^(n + 1); AppendTo[lst, {a, b, c}], {n, 0, 14}]; Prepend[Flatten@lst, 1]
CoefficientList[Series[(1 + x + x^2 + 2*x^5 - 2*x^10)/(1 - 3*x^3), {x, 0, 44}], x] (* Vincenzo Librandi, Jul 12 2012 *)
LinearRecurrence[{0, 0, 3}, {1, 1, 1, 3, 3, 5, 9, 9, 15, 27, 25}, 51] (* Harvey P. Dale, Jan 12 2020 *)
PROG
(PARI) my(x='x+O('x^50)); Vec((1+x+x^2+2*x^5-2*x^10)/(1-3*x^3)) \\ Michel Marcus, Jan 16 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Arkadiusz Wesolowski, Jun 25 2012
EXTENSIONS
Replaced unclear definition with a precise generating function from Bruno Berselli, Jun 27 2012. - N. J. A. Sloane, Jan 11 2021
Name changed and initial term added by Arkadiusz Wesolowski, Dec 20 2020
STATUS
approved