Multiply Then Add, Smallest Possible Integer

[zak seidov]

%S A127181 

1,1,2,3,5,11,37,221,3361,190777,83199527,794428174817,783890064862614667,680985720983079851162477689,16456874347131887002906208066728704124421

My dirty (however working) Mmca:

s={1,1,2,3};di=4;
s={1,1,2,3};di=4;Do[ra=Range[di];re=Reap[Do[rai=Subsets[ra,{i}];Do[raik=rai[[k]];co=Complement[ra,raik];Sow[Times@@(s[[#]]&/@raik)+Times@@(s[[#]]&/@co)],{k,1,i}],{i,di-1}]][[2,1]];AppendTo[s,Min[re]];di++,{11}];s

Best, Zak

--- Leroy Quet <qq-quet at mindspring.com> wrote:

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com