m:-readln([I]),N=ceil(I/30.17-0.42),format("~d
",N*(N+1)*(N*2+1)/6),m.