|
%I #15 Sep 08 2022 08:45:15
%S 3,3,9,729,282429536481,
%T 1797010299914431210413179829509605039731475627537851106401
%N 3^(n!).
%H Vincenzo Librandi, <a href="/A100731/b100731.txt">Table of n, a(n) for n = 0..6</a>
%F a(n)=a(n-1)^n, a(0)=3. a(n)=A000244(A000142(n)). - _Vincenzo Librandi_, Dec 16 2012
%e If n=2, 3^(2!) = 9
%e If n=3, 3^(3!) = 729
%e If n=4, 3^(4!) = 282429536481
%t a=3;lst={};Do[a=a^n;AppendTo[lst,a],{n,1,7}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 26 2009 *)
%t Table[3^n!, {n, 0, 9}] (* _Vincenzo Librandi_, Dec 16 2012 *)
%o (Magma) [3^Factorial(n): n in [0..7]]; // _Vincenzo Librandi_, Dec 16 2012
%o (Maxima) makelist(3^(n!),n,0,5); /* _Martin Ettl_, Dec 27 2012 */
%Y Cf. A000142, A000244, A050923.
%K nonn
%O 0,1
%A _Parthasarathy Nambi_, Jan 12 2005
|
