OFFSET
1,5
REFERENCES
Martin Gardner, Mathematical Circus, Random House, New York, 1981, p. 165.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..21
MATHEMATICA
Nest[Append[#, #[[-1]] #[[-2]] + #[[-1]] #[[-3]]] &, {0, 1, 1}, 12] (* Michael De Vlieger, Dec 17 2017 *)
PROG
(MATLAB)
function y=fib(n)
%Generates running geometric numbers( second kind)
fz(1)=0; fz(2)=1; fz(3)=1;
for k=4:n
fz(k)=fz(k-1)*(fz(k-2)+fz(k-3));
end
y=fz(n);
(PARI) /* script that avoids arrays */
geom(n) = {
local(a=0, b=1, c=1, d);
print1(a", "b", "c", ");
for(x=1, n-3,
d=(a+b)*c;
print1(d", ");
a=b; b=c; c=d;
)
} \\ Cino Hilliard, Apr 29 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Matt Wynne (matwyn(AT)verizon.net), Aug 11 2008
STATUS
approved