[seqfan] Re: Cute interpretation of A002294
brad klee
bradklee at proton.me
Fri Aug 11 20:09:09 CEST 2023
> I can't see this mentioned anywhere in the A002294 entry, but perhaps
> I'm being blind...
There's working Mathematica code, which differs from your proposal by
a sign:
CoefficientList[InverseSeries[
Series[y - y^5, {y, 0, 100}],
x], x][[Range[2, 100, 4]]]
Out[] ={1, 1, 5, 35, 285, 2530, . . . }
Changing the sign on y^5 term in the first argument of Series introduces
an alternating sign pattern in the output list of integers.
--Brad
More information about the SeqFan
mailing list