A115033 - OEIS

%I #6 Jun 18 2021 07:23:00

%S 2,3,6,2,12,6,72,12,864,72,62208,864,53747712,62208,3343537668096,

%T 53747712,17970749926243172352,334353766096,

%U 60108447043798927317622177792,179774996243172352

%N Alternately multiply and divide, with a(1)=2 and a(2)=3.

%F a(2*k) = a(2*k-3); a(2*k+1) = a(2*k)*a(2*k-1) - Georg Fischer, Jun 18 2021

%p addmul:=proc(k,m,maxn): local f:

%p   f:= proc(n) if n::even

%p     then k^combinat:-fibonacci(n/2-1)  *m^combinat:-fibonacci(n/2-2)

%p     else k^combinat:-fibonacci((n+1)/2)*m^combinat:-fibonacci((n-1)/2)

%p     fi

%p   end proc:

%p   map(f, [$1..maxn]);

%p end proc: # after _Robert Israel_ in A174348

%p addmul(2,3,20); # _Georg Fischer_, Jun 18 2021

%t nxt[{a_, b_}]:={a*b, (a*b)/b}; NestList[nxt, {2,3}, 10]//Flatten (* _Georg Fischer_, Jun 18 2021 *)

%Y Cf. A115034, A174348.

%K easy,nonn

%O 1,1

%A _Giovanni Teofilatto_, Feb 26 2006

%E Definition adapted to offset by _Georg Fischer_, Jun 18 2021