login
A174255
Fibonacci-x^x where x is largest integer such that x^x is smaller than Fibonacci.
0
1, 2, 1, 4, 9, 17, 7, 28, 62, 117, 206, 121, 354, 731, 1341, 2328, 1056, 3640, 7821, 14586, 25532, 43243, 28369, 74737, 149762, 271155, 467573, 8497, 522726, 1354766, 2701035, 4879344, 8403922, 14106809, 7380601, 22310953, 46468770, 85556939
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
STATUS
approved