[seqfan] help needed interpreting the difference between A078521 and A137432

[wouter meeussen]

they *are* different, but close.

take:

w=16;
a= (CoefficientList[ #, r]&/@ CoefficientList[Series[Product[(1-z^k)^r, {k,
1, w}], {z, 0, w}], z])Range[0, w]!;
b=Table[ n! CoefficientList[SeriesCoefficient[ Series[1/(1 - t - t^2)^x, {t,
0, w}], n], x], {n, 0, w}];
ColumnForm[it=Table[Part[b,k]-Part[Abs/@a,k],{k,1+w}] ]
(Tr/@ it)/Range[0,w]!

{0, 0, 0, 0, 0, 1, 2, 6, 12, 25, 47, 88, 156, 276, 475, 811, 1366}
and this silly difference is too cute to be generally unfamiliar to all.
It *must* mean something.
Superseeker gave ziltch.

any takers?

Wouter.