1,1

S. Schlicker, L. Morales, D. Schultheis, Polygonal chain sequences in the space of compact sets, J. Integer Seq., to appear

with(combinat): a := proc(n) local aa, b, c, d, lambda, delta, R, S, F, L, m, l: m:=3: l:=2: F := n -> fibonacci(n): L := n -> fibonacci(n-1)+fibonacci(n+1): aa := (m, l) -> L(2*m)*F(l-2)+F(2*m+2)*F(l-1): b := (m, l) -> L(2*m)*F(l-1)+F(2*m+2)*F(l): c := (m, l) -> F(2*m+2)*F(l-2)+F(m+2)^2*F(l-1): d := (m, l) -> F(2*m+2)*F(l-1)+F(m+2)^2*F(l): lambda := (m, l) -> (d(m, l)+aa(m, l)+sqrt((d(m, l)-aa(m, l))^2+4*b(m, l)*c(m, l)))*(1/2): delta := (m, l) -> (d(m, l)+aa(m, l)-sqrt((d(m, l)-aa(m, l))^2+4*b(m, l)*c(m, l)))*(1/2): R := (m, l) -> ((lambda(m, l)-d(m, l))*L(2*m)+b(m, l)*F(2*m+2))/(2*lambda(m, l)-d(m, l)-aa(m, l)): S := (m, l) -> ((lambda(m, l)-aa(m, l))*L(2*m)-b(m, l)*F(2*m+2))/(2*lambda(m, l)-d(m, l)-aa(m, l)): simplify(R(m, l)*lambda(m, l)^(n-1)+S(m, l)*delta(m, l)^(n-1)); end proc;

Cf. A152927, A152928, A152929, A152930, A152931, A152932, A152934, A152935

Sequence in context: A052135 A033518 A064564 this_sequence A160252 A160307 A003030

Adjacent sequences: A152930 A152931 A152932 this_sequence A152934 A152935 A152936

nonn

Steven Schlicker (schlicks(AT)gvsu.edu), Dec 15 2008