|
| |
|
|
A000304
|
|
a(n) = a(n-1) a(n-2).
|
|
3
| |
|
|
2, 3, 6, 18, 108, 1944, 209952, 408146688, 85691213438976, 34974584955819144511488, 2997014624388697307377363936018956288, 104819342594514896999066634490728502944926883876041385836544
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
REFERENCES
| Int. J. Math. Edu. Sci. Technol. Sergio Falcon, Fibonacci's multiplicative sequence, 34-2 (2003), 310-315 [From Sergio Falcon (sfalcon(AT)dma.ulpgc.es), Nov 23 2009]
|
|
|
FORMULA
| For n>=4, a(n) = 2^A000045(n-3)*3^A000045(n-2) - Benoit Cloitre (benoit7848c(AT)orange.fr), Sep 26 2003
|
|
|
MAPLE
| A000304 := proc(n) option remember; if n <=3 then n else A000304(n-1)*A000304(n-2); fi; end;
a[0]:=2: a[1]:=3: for n from 2 to 13 do a[n]:=a[n-1]*a[n-2] od: seq(a[n], n=0..10); # [From Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 19 2009]
a=2; b=3; lst={a, b}; Do[z=a*b; AppendTo[lst, z]; a=b; b=z, {n, 12}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 17 2010]
|
|
|
MATHEMATICA
| a=2; b=3; lst={a, b}; Do[AppendTo[lst, c=a*b]; a=b; b=c, {n, 15}]; lst (*From Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), 23 Nov 2010*)
|
|
|
CROSSREFS
| Sequence in context: A093468 A185625 A114302 * A000614 A018290 A121959
Adjacent sequences: A000301 A000302 A000303 * A000305 A000306 A000307
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
EXTENSIONS
| More terms,Mathematica program Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 17 2010
|
| |
|
|
