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.
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
KEYWORD
nonn
AUTHOR
Ryan Propper, Nov 09 2005
STATUS
approved