OFFSET
1,4
EXAMPLE
a(8) = 5 because we have [7, 1], [4, 3, 1] and 2 + 3 = 5.
MATHEMATICA
nmax = 90; Rest[CoefficientList[Series[Sum[x^LucasL[i]/(1 + x^LucasL[i]) Product[(1 + x^LucasL[j]), {j, 1, nmax}], {i, 1, nmax}], {x, 0, nmax}], x]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 27 2017
STATUS
approved