let p=Printf.printf;;p"[3";for i=2to 9do
for j=1to i*2do p", %d"(i*i+j)done
done;p"]"