OFFSET
0,4
LINKS
S. G. Wagner, The Fibonacci number of Fibonacci trees and a related family of polynomial recurrence systems, Fib. Q., 45 (2007), 247-253.
MAPLE
f:=proc(n) option remember;
if n=0 then [0, 1];
elif n=1 then [1, 1]
else
[f(n-1)[2]*f(n-2)[2], (f(n-1)[1]+f(n-1)[2])*(f(n-2)[1]+f(n-2)[2])];
fi; end;
[seq(f(n), n=0..11)];
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 20 2019
STATUS
approved