OFFSET
1,1
FORMULA
a(2*k) = a(2*k-3); a(2*k+1) = a(2*k)*a(2*k-1) - Georg Fischer, Jun 18 2021
MAPLE
addmul:=proc(k, m, maxn): local f:
f:= proc(n) if n::even
then k^combinat:-fibonacci(n/2-1) *m^combinat:-fibonacci(n/2-2)
else k^combinat:-fibonacci((n+1)/2)*m^combinat:-fibonacci((n-1)/2)
fi
end proc:
map(f, [$1..maxn]);
end proc: # after Robert Israel in A174348
addmul(2, 3, 20); # Georg Fischer, Jun 18 2021
MATHEMATICA
nxt[{a_, b_}]:={a*b, (a*b)/b}; NestList[nxt, {2, 3}, 10]//Flatten (* Georg Fischer, Jun 18 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Feb 26 2006
EXTENSIONS
Definition adapted to offset by Georg Fischer, Jun 18 2021
STATUS
approved