OFFSET
1,3
MATHEMATICA
a = {1, 1, 5}; n = 4; Do[ a = Append[a, Sum[a[[2 i - 1]]*a[[n - 2 i + 1]], {i, 1, Floor[(n + 2)/4]}]]; n++, 29]; a (* Jake L Lande, Jul 03 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected and title improved by Sean A. Irvine, Jul 30 2019
STATUS
approved