%I #23 Oct 22 2024 20:52:04
%S 1,1,1,4,27,3125,16777216,302875106592253,
%T 5842587018385982521381124421,
%U 11756638905368616011414050501310355554617941909569536,524744532468751923546122657597368049278513737089035272057324643668607677682302892208099365234375
%N Fibonacci number F(n) to power F(n).
%H Vincenzo Librandi, <a href="/A008973/b008973.txt">Table of n, a(n) for n = 0..14</a>
%F a(n) = A000045(n)^A000045(n).
%F a(n) = A000312(A000045(n)).
%p with(combinat):
%p [ seq(fibonacci(n)^fibonacci(n), n=0..15) ];
%t Table[f=Fibonacci[n];f^f,{n,0,9}] (* _Vladimir Joseph Stephan Orlovsky_, Jul 22 2008 *)
%o (PARI) a(n)=my(f=fibonacci(n)); f^f \\ _Charles R Greathouse IV_, Oct 03 2016
%Y Cf. A000045, A000312, A250495.
%K nonn
%O 0,4
%A _N. J. A. Sloane_