У тебя задание посчитать именно рекурсией или надо просто сосчитать ?
Например можно просто считать n-ые члены этой последовательности (1,4,16,49,121...) и складывать их.
Код:
function Sum(n:integer):integer;
var i:integer;
begin
Result := 1;
for i:=2 to n do
Result := Result + Sqr(1+( i*(i-1) div 2));
end;
вот ссылка на саму последовательность:
http://www.research.att.com/~njas/sequences/A086601