A111388 a(n) = floor(log(A111288(n))).

0, 0, 0, 0, 0, 1, 1, 2, 3, 5, 8, 12, 17, 26, 38, 56, 82, 120, 176, 258, 379, 556, 815, 1194, 1751, 2566, 3761, 5512, 8079, 11840, 17353, 25432, 37272, 54625, 80057, 117330, 171955, 252013, 369343, 541298, 793311, 1162654, 1703953, 2497265, 3659920

Offset

1,8

Comments

The sequence A111288 grows very rapidly, as evidenced here, so it makes more sense to take the log of these terms.

Links

Table of n, a(n) for n=1..45.

Mathematica

l = {1, 1, 1, 1}; For[n = 5, n <= 50, n++, k = l[[n-1]]*l[[n-3]] + l[[n-2]]*l[[n-4]]; AppendTo[l, k]]; Print[Map[Floor, Map[Log, l]]]

Crossrefs

Sequence in context: A200661 A175539 A260795 * A127884 A105858 A372040

Adjacent sequences: A111385 A111386 A111387 * A111389 A111390 A111391

Keyword

nonn

Author

Ryan Propper, Nov 09 2005

Status

approved