[seqfan] Re: polynomial-to-product transform

zak seidov zakseidov at yahoo.com
Mon Nov 10 16:18:48 CET 2008


--- On Mon, 11/10/08, Richard Mathar <mathar at strw.leidenuniv.nl> wrote:
> I confirm the first 50 entries in this list, including the
> sign flip at a(7):
> 
> [2, 3, -1, 9, -4, 0, -16, 89, -52, 60, -182, 214, -620,

OK, thx,
& i've just submitted:

%V A147557 2,3,-1,9,-4,0,-16,89,-52,60,-182,214,-620,966,-2142,10497,-7676,13684,
%W A147557 -27530,48288,-98372,190928,-364464,619496,-1341508,2649990,-4923220,
%X A147557 9726940,-18510902,37055004,-69269976,213062855,-258284232,527143794
%E A147557 Corrected and extended by Zak Seidov (zakseidov(AT)yahoo.com), Nov 10 2008
%t A147557 ser=1+Sum[Prime[i]x^i,{i,110}];ss=1+2x;Do[ser=Normal[Series[ser/(Take[ser,2]),{x,0,105}]];ss+=ser[[2]],{100}];A147557=CoefficientList[ss,x] [From Zak Seidov (zakseidov(AT)yahoo.com), Nov 10 2008]





      




More information about the SeqFan mailing list