# Error when solving equations constructed with Table [duplicate]

I have a couple of questions about the problem I am trying to solve

n = 7;
alpha = 0.01; c = 10;

atable = Table[a[i], {i, 0, n}];
Solu = y^Range[0, n].atable;

Leftequ = Solu;
Rightequ =  A y^2 +  B y + DD + 1/2/alpha Integrate[Solu^2, y];

Lec = CoefficientList[Leftequ, y];
Rec = CoefficientList[Rightequ, y];

eqs = Lec == Rec;

Sol = Solve[eqs, atable]


If I check a[0] it will show that a[0]=a[0], but I want to set it to a[0] = DD. This is probably a mistake I overlooked, but nevertheless could not find it. Thanks in advance.

-

## marked as duplicate by m_goldberg, Yves Klett, bobthechemist, Mr.Wizard♦Feb 5 '14 at 16:46

This answer might should be helpful: Using the result of functions that return replacement rules. –  Yves Klett Feb 5 '14 at 14:16
Possible duplicates: (3175), (6669), (9035). –  Mr.Wizard Feb 5 '14 at 14:20

a[0] /. Sol[[1]]