A195529 Ultracompositorial: Compositorials raised to the power of themselves.
1, 256, 1333735776850284124449081472843776
Offset: 0
Links
- Amiram Eldar, Table of n, a(n) for n = 0..3
Programs
-
Mathematica
(* First run the program for A036691 *) Table[A036691[[n]]^A036691[[n]], {n, 4}] (* Alonso del Arte, Sep 21 2011 *) (#^#) & /@ FoldList[Times, 1, Select[Range[6], CompositeQ]] (* Amiram Eldar, Jul 20 2025 *)
Formula
a(2) = A114993(2). - R. J. Mathar, Aug 22 2025
Extensions
a(2) corrected by Franklin T. Adams-Watters, Sep 21 2011
Comments