ПАСКАЛЬ!!!
S=1+1*3+1*3*5+...+1*3*(2n-1)

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (s,r):=(BigInteger(1),BigInteger(1));

 for var i:=2 to ReadInteger('n=') do

 begin

   r*=2*i-1;

   s+=r

 end;

 s.Println

end.