|
|
|
|
1, 14, 86, 374, 1382, 4694, 15206, 47894, 148262, 453974, 1380326, 4177814, 12607142, 37968854, 114201446, 343194134, 1030762022, 3094645334, 9288654566, 27875400854, 83645076902, 250972979414, 752994435686, 2259134301974
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x*(1 + 8*x + 13*x^2 + 6*x^3)/((1 - x)*(1 - 2*x)*(1 - 3*x)). - Stefano Spezia, Apr 21 2024
|
|
MAPLE
|
a := n -> 2*(4*3^n - 9*2^n + 7) - `if`(n=1, 1, 0);
|
|
MATHEMATICA
|
A372148[n_] := 2*(4*3^n - 9*2^n + 7) - Boole[n == 1]; Array[A372148, 50] (* or *)
LinearRecurrence[{6, -11, 6}, {1, 14, 86, 374}, 50] (* Paolo Xausa, May 25 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,changed
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|