|
|
|
|
1, 2, 8, 22, 68, 202, 608, 1822, 5468, 16402, 49208, 147622, 442868, 1328602, 3985808, 11957422, 35872268, 107616802, 322850408, 968551222, 2905653668, 8716961002, 26150883008, 78452649022, 235357947068, 706073841202, 2118221523608, 6354664570822, 19063993712468
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1+x^2)/(1-2x-3*x^2).
a(0)=1, a(1)=2, a(2)=8, a(n)=2*a(n-1)+3*a(n-2) , for n>2.
a(0)=1, a(n) = (5*3^(n-1)-(-1)^(n-1))/2, for n>0 . (End)
|
|
MATHEMATICA
|
(* The function RiordanSquare is defined in A321620. *)
Lucas = 1 + x*(1 + 2x)/(1 - x - x^2);
M = RiordanSquare[Lucas, 29]; Map[Total, M]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|