OFFSET
1,2
COMMENTS
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,..
MATHEMATICA
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!}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 13 2010
STATUS
approved