%I #2 Mar 31 2012 12:38:31
%S 1,2,1,4,9,17,7,28,62,117,206,121,354,731,1341,2328,1056,3640,7821,
%T 14586,25532,43243,28369,74737,149762,271155,467573,8497,522726,
%U 1354766,2701035,4879344,8403922,14106809,7380601,22310953,46468770,85556939
%N Fibonacci-x^x where x is largest integer such that x^x is smaller than Fibonacci.
%C 1^1=1;2-1=1,3-1=2, 2^2=4;5-4=1,8-4=4,13-4=9,21-4=17, 3^3=27;34-27=7,..
%t f[n_]:=Module[{k=1},While[n>k^k,++k];k-1];Table[fibo=Fibonacci[n];a=f[fibo];fibo-a^a,{n,3,5!}]
%Y Cf. A000040, A000045, A000312, A174254
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Mar 13 2010
|