|
%I #55 Feb 28 2022 04:17:23
%S 2,3,6,18,108,1944,209952,408146688,85691213438976,
%T 34974584955819144511488,2997014624388697307377363936018956288,
%U 104819342594514896999066634490728502944926883876041385836544
%N a(n) = a(n-1)*a(n-2).
%C A038500(a(n)) = A010098(n-2); for n > 2: A006519(a(n)) = A000301(n-3); A001222(a(n)) = A000045(n-1). - _Reinhard Zumkeller_, Jul 06 2014
%H T. D. Noe, <a href="/A000304/b000304.txt">Table of n, a(n) for n = 2..18</a>
%H Peter G. Anderson, <a href="https://www.fq.math.ca/Papers1/55-5/Anderson.pdf">Notes & Extensions for a Remarkable Continued Fraction</a>, Fibonacci Quart. 55 (2017), no. 5, 9-14. Mentions this sequence.
%H Sergio Falcon, <a href="http://dx.doi.org/10.1080/0020739031000158362">Fibonacci's multiplicative sequence</a>, Int. J. Math. Edu. Sci. Technol. 34-2 (2003), 310-315. [_Sergio Falcon_, Nov 23 2009]
%F For n>=4, a(n) = 2^A000045(n-3)*3^A000045(n-2). - _Benoit Cloitre_, Sep 26 2003
%F For n > 2: a(n) = A000301(n-3) * A010098(n-2). - _Reinhard Zumkeller_, Jul 06 2014
%p A000304 := proc(n) option remember; if n <=3 then n else A000304(n-1)*A000304(n-2); fi; end;
%t nxt[{a_,b_}]:={b,a*b}; Transpose[NestList[nxt,{2,3},12]][[1]] (* _Harvey P. Dale_, Nov 16 2014 *)
%o (Haskell)
%o a000304 n = a000304_list !! (n-2)
%o a000304_list = 2 : 3 : zipWith (*) a000304_list (tail a000304_list)
%o -- _Reinhard Zumkeller_, Jul 06 2014
%Y Cf. A000045, A000301, A001222, A006519, A010098, A038500, A249406.
%K nonn
%O 2,1
%A _N. J. A. Sloane_
%E More terms from _Vladimir Joseph Stephan Orlovsky_, Feb 17 2010
| 