kill(all)$

van=facebook.com/LearningCalculus$

      https://oeis.org/A002717

f(a) := floor(a*(a+2)*(2*a+1)/8);

for i: 1 thru 5 do
print ("Answer ",i,f(i));