|
|
A213933
|
|
G.f.: (1+x+x^2+2*x^5-2*x^10)/(1-3*x^3).
|
|
1
|
|
|
1, 1, 1, 3, 3, 5, 9, 9, 15, 27, 25, 45, 81, 75, 135, 243, 225, 405, 729, 675, 1215, 2187, 2025, 3645, 6561, 6075, 10935, 19683, 18225, 32805, 59049, 54675, 98415, 177147, 164025, 295245, 531441, 492075, 885735, 1594323, 1476225, 2657205, 4782969, 4428675, 7971615
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|