A174255 Fibonacci-x^x where x is largest integer such that x^x is smaller than Fibonacci.

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,..

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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!}]
Module[{nn=40, xx}, xx=#^#&/@Range[nn]; Table[With[{fib=Fibonacci[n]}, fib-Max[Select[xx, #<fib&]]], {n, 3, nn}]] (* Harvey P. Dale, Nov 16 2024 *)

Crossrefs

Cf. A000040, A000045, A000312, A174254

Sequence in context: A163547 A015943 A006445 * A254199 A343398 A097949

Adjacent sequences: A174252 A174253 A174254 * A174256 A174257 A174258

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 13 2010

Status

approved